diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-08-29 14:37:55 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-08-29 14:37:55 +0200 |
commit | 751246d893470b95d3d96ef87fe6dc86950d8d63 (patch) | |
tree | a4512b9db59c10ed761d124f63f18a30ce1f51aa /printing/printer.ml | |
parent | 7e29b535397c98a46999ecdd827fa5f4cebc8798 (diff) | |
parent | 4f392bc8114309f388791c1ddc7cc95cc021aa5e (diff) |
Merge PR #830: Moving assert (the "Cut" rule) to new proof engine
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 e9d104b49..28b10c781 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -846,15 +846,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 ") ++ |