diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:03 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:03 +0200 |
| commit | 97135b8484ddcfaa7707434afaca4bc276c6d302 (patch) | |
| tree | 22963b0f18839c0504b53e3d82bfcc6f45a31b76 /ltac | |
| parent | 8ab8aba84521a8a81374619357452e081d0f758f (diff) | |
Revert "Fixing printing of Register retroknowledge."
This reverts commit 84d8a4bd7d797b6e13e4107ad24a6dcf4f098dbb.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/extraargs.ml4 | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/ltac/extraargs.ml4 b/ltac/extraargs.ml4 index 8b0123a90..0bddcc9fd 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 |