diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-02 01:15:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-02 14:53:27 +0100 |
| commit | 85ed2504568ee06207546b1ac0660e9c559bca22 (patch) | |
| tree | 24f5c44a637a7cbeb8e6045c545fd9870f1f88d3 /plugins/cc | |
| parent | e0449b763d5854da2e7e48f4e92da779913a0347 (diff) | |
Writing [cut] tactic using the new monad.
Diffstat (limited to 'plugins/cc')
| -rw-r--r-- | plugins/cc/cctac.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml index a34cbf70f..b086190f4 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -477,11 +477,9 @@ let f_equal = let cut_eq c1 c2 = try (* type_of can raise an exception *) let ty = Termops.refresh_universes (type_of c1) in - Proofview.V82.tactic begin - tclTHENTRY - (Tactics.cut (mkApp (Lazy.force _eq, [|ty; c1; c2|]))) - (simple_reflexivity ()) - end + Tacticals.New.tclTRY (Tacticals.New.tclTHEN + (Tactics.cut (mkApp (Lazy.force _eq, [|ty; c1; c2|]))) + (Tacticals.New.tclTRY (Proofview.V82.tactic (simple_reflexivity ())))) with e when Proofview.V82.catchable_exception e -> Proofview.tclZERO e in Proofview.tclORELSE |