diff options
| author | Pierre-Marie Pédrot | 2016-05-16 18:34:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-05-16 21:17:25 +0200 |
| commit | 12f4c8ed277fa8368cab2e99f173339a64bcef3d (patch) | |
| tree | e6a5072d1f747d0266fe7d6af9ef666b39f3dcce /proofs/tacmach.ml | |
| parent | dc8750d166cffd846619d2de20e02a4e31c6357f (diff) | |
Put the "fix" tactic in the monad.
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 67daccb81d..8eb8b2cec6 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -124,9 +124,6 @@ let refine_no_check c gl = let move_hyp_no_check id1 id2 gl = refiner (Move (id1,id2)) gl -let mutual_fix f n others j gl = - with_check (refiner (FixRule (f,n,others,j))) gl - let mutual_cofix f others j gl = with_check (refiner (Cofix (f,others,j))) gl |