diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 16:24:30 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-25 21:30:09 +0200 |
commit | 9e1372f77218ca6f0baf4ed7c590c91ad84b6313 (patch) | |
tree | f75c23cb31a84f6010e15a7ec612640d6cac5e0d /proofs/tacmach.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 'proofs/tacmach.ml')
-rw-r--r-- | proofs/tacmach.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index f9d9f25cc..bdfa399aa 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -115,22 +115,12 @@ let pf_matches gl p c = pf_apply Constr_matching.matches_conv gl p c let refiner = refiner -let internal_cut_no_check replace id t gl = - let t = EConstr.Unsafe.to_constr t in - refiner (Cut (true,replace,id,t)) gl - -let internal_cut_rev_no_check replace id t gl = - let t = EConstr.Unsafe.to_constr t in - refiner (Cut (false,replace,id,t)) gl - let refine_no_check c gl = let c = EConstr.Unsafe.to_constr c in refiner (Refine c) gl (* Versions with consistency checks *) -let internal_cut b d t = with_check (internal_cut_no_check b d t) -let internal_cut_rev b d t = with_check (internal_cut_rev_no_check b d t) let refine c = with_check (refine_no_check c) (* Pretty-printers *) |