diff options
| author | Pierre-Marie Pédrot | 2020-02-11 22:07:31 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-04 12:44:45 +0200 |
| commit | 7a8c4003ef5071d6b9bc248e997d0397304e8491 (patch) | |
| tree | a2994e5cd0a245aa756125ceb8626bbc093f45a8 /dev | |
| parent | e766d31683550d1debea70a3620fc3597a154700 (diff) | |
Move the cbn reduction to its own file, and simplify the RAKAM accordingly.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/include_printers | 1 | ||||
| -rw-r--r-- | dev/top_printers.dbg | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 1 | ||||
| -rw-r--r-- | dev/top_printers.mli | 1 |
4 files changed, 0 insertions, 4 deletions
diff --git a/dev/include_printers b/dev/include_printers index d077075eeb..30529b5fd6 100644 --- a/dev/include_printers +++ b/dev/include_printers @@ -27,7 +27,6 @@ #install_printer (* id set *) ppidset;; #install_printer (* int set *) ppintset;; -#install_printer (* Reductionops stcak of unfolded constants *) pp_cst_stack_t;; #install_printer (* Reductionops machine stack *) pp_stack_t;; (*#install_printer (* hint_db *) print_hint_db;;*) diff --git a/dev/top_printers.dbg b/dev/top_printers.dbg index 06db787488..63071bba72 100644 --- a/dev/top_printers.dbg +++ b/dev/top_printers.dbg @@ -46,7 +46,6 @@ install_printer Top_printers.pp_idpred install_printer Top_printers.pp_cpred install_printer Top_printers.pp_transparent_state install_printer Top_printers.pp_stack_t -install_printer Top_printers.pp_cst_stack_t install_printer Top_printers.pp_state_t install_printer Top_printers.ppmetas install_printer Top_printers.ppevm diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 00050a89e1..bca1eb5754 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -169,7 +169,6 @@ let pp_idpred s = pp (pr_idpred s) let pp_cpred s = pp (pr_cpred s) let pp_transparent_state s = pp (pr_transparent_state s) let pp_stack_t n = pp (Reductionops.Stack.pr (EConstr.of_constr %> pr_econstr) n) -let pp_cst_stack_t n = pp (Reductionops.Cst_stack.pr Global.(env()) Evd.empty n) let pp_state_t n = pp (Reductionops.pr_state Global.(env()) Evd.empty n) (* proof printers *) diff --git a/dev/top_printers.mli b/dev/top_printers.mli index c826391cac..65eab8daa3 100644 --- a/dev/top_printers.mli +++ b/dev/top_printers.mli @@ -106,7 +106,6 @@ val pp_cpred : Names.Cpred.t -> unit val pp_transparent_state : TransparentState.t -> unit val pp_stack_t : Constr.t Reductionops.Stack.t -> unit -val pp_cst_stack_t : Reductionops.Cst_stack.t -> unit val pp_state_t : Reductionops.state -> unit val ppmetas : Evd.Metaset.t -> unit |