diff options
| author | Hugo Herbelin | 2017-06-25 16:24:30 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-06-25 21:30:09 +0200 |
| commit | 9e1372f77218ca6f0baf4ed7c590c91ad84b6313 (patch) | |
| tree | f75c23cb31a84f6010e15a7ec612640d6cac5e0d /printing/printer.ml | |
| parent | 7446e3e1555c0f41373b71b92a3f01f060e8e0e0 (diff) | |
Moving "assert" (internally "Cut") to the new proof engine.
It allows in particular to have "Info" on tactic "assert" and
derivatives not to give an "<unknown>".
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 3b0b6d5d23..6c571f4240 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -845,15 +845,6 @@ let pr_goal_by_uid uid = (* Elementary tactics *) let pr_prim_rule = function - | Cut (b,replace,id,t) -> - if b then - (* TODO: express "replace" *) - (str"assert " ++ str"(" ++ pr_id id ++ str":" ++ pr_lconstr t ++ str")") - else - let cl = if replace then str"clear " ++ pr_id id ++ str"; " else mt() in - (str"cut " ++ pr_constr t ++ - str ";[" ++ cl ++ str"intro " ++ pr_id id ++ str"|idtac]") - | Refine c -> (** FIXME *) str(if Termops.occur_meta Evd.empty (EConstr.of_constr c) then "refine " else "exact ") ++ |