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 /proofs/tacmach.ml | |
| parent | 7e29b535397c98a46999ecdd827fa5f4cebc8798 (diff) | |
| parent | 4f392bc8114309f388791c1ddc7cc95cc021aa5e (diff) | |
Merge PR #830: Moving assert (the "Cut" rule) to new proof engine
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 2ed9416d1..a4d662e0a 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 *) |