diff options
| author | Hugo Herbelin | 2016-04-27 22:13:03 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 22:13:03 +0200 |
| commit | 97135b8484ddcfaa7707434afaca4bc276c6d302 (patch) | |
| tree | 22963b0f18839c0504b53e3d82bfcc6f45a31b76 | |
| parent | 8ab8aba84521a8a81374619357452e081d0f758f (diff) | |
Revert "Fixing printing of Register retroknowledge."
This reverts commit 84d8a4bd7d797b6e13e4107ad24a6dcf4f098dbb.
| -rw-r--r-- | ltac/extraargs.ml4 | 20 | ||||
| -rw-r--r-- | printing/ppvernacsig.mli | 3 |
2 files changed, 2 insertions, 21 deletions
diff --git a/ltac/extraargs.ml4 b/ltac/extraargs.ml4 index 8b0123a90a..0bddcc9fdd 100644 --- a/ltac/extraargs.ml4 +++ b/ltac/extraargs.ml4 @@ -273,23 +273,7 @@ let pr_r_int31_field i31f = | Retroknowledge.Int31PhiInv -> str "phi inv" | Retroknowledge.Int31Plus -> str "plus" | Retroknowledge.Int31Times -> str "times" - | Retroknowledge.Int31Constructor -> assert false - | Retroknowledge.Int31PlusC -> str "plusc" - | Retroknowledge.Int31PlusCarryC -> str "pluscarryc" - | Retroknowledge.Int31Minus -> str "minus" - | Retroknowledge.Int31MinusC -> str "minusc" - | Retroknowledge.Int31MinusCarryC -> str "minuscarryc" - | Retroknowledge.Int31TimesC -> str "timesc" - | Retroknowledge.Int31Div21 -> str "div21" - | Retroknowledge.Int31Div -> str "div" - | Retroknowledge.Int31Diveucl -> str "diveucl" - | Retroknowledge.Int31AddMulDiv -> str "addmuldiv" - | Retroknowledge.Int31Compare -> str "compare" - | Retroknowledge.Int31Head0 -> str "head0" - | Retroknowledge.Int31Tail0 -> str "tail0" - | Retroknowledge.Int31Lor -> str "lor" - | Retroknowledge.Int31Land -> str "land" - | Retroknowledge.Int31Lxor -> str "lxor" + | _ -> assert false let pr_retroknowledge_field f = match f with @@ -297,7 +281,7 @@ let pr_retroknowledge_field f = | Retroknowledge.KNat natf -> pr_r_nat_field () () () natf | Retroknowledge.KN nf -> pr_r_n_field () () () nf *) | Retroknowledge.KInt31 (group, i31f) -> (pr_r_int31_field i31f) ++ - spc () ++ str "in " ++ qs group + str "in " ++ str group VERNAC ARGUMENT EXTEND retroknowledge_nat PRINTED BY pr_r_nat_field diff --git a/printing/ppvernacsig.mli b/printing/ppvernacsig.mli index 5e5e4bcf49..5d1c89332c 100644 --- a/printing/ppvernacsig.mli +++ b/printing/ppvernacsig.mli @@ -8,9 +8,6 @@ module type Pp = sig - (** Prints a fixpoint body *) - val pr_rec_definition : (Vernacexpr.fixpoint_expr * Vernacexpr.decl_notation list) -> Pp.std_ppcmds - (** Prints a vernac expression *) val pr_vernac_body : Vernacexpr.vernac_expr -> Pp.std_ppcmds |