diff options
Diffstat (limited to 'contrib/setoid_ring')
-rw-r--r-- | contrib/setoid_ring/Ring_tac.v | 2 | ||||
-rw-r--r-- | contrib/setoid_ring/newring.ml4 | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/contrib/setoid_ring/Ring_tac.v b/contrib/setoid_ring/Ring_tac.v index d98b3b6bd..6c3f87a5b 100644 --- a/contrib/setoid_ring/Ring_tac.v +++ b/contrib/setoid_ring/Ring_tac.v @@ -164,7 +164,7 @@ Ltac Make_ring_rw Cst_tac lemma req r := let pe1 := mkPol r1 fv in let pe2 := mkPol r2 fv in ((apply (lemma1 fv pe1 pe2); - compute; + vm_compute; exact (refl_equal true)) || (Make_ring_rewrite_step (lemma2 fv) pe1; Make_ring_rewrite_step (lemma2 fv) pe2)) diff --git a/contrib/setoid_ring/newring.ml4 b/contrib/setoid_ring/newring.ml4 index 573f83cea..6a78e88c7 100644 --- a/contrib/setoid_ring/newring.ml4 +++ b/contrib/setoid_ring/newring.ml4 @@ -195,10 +195,10 @@ let protect_red env sigma c = (mk_clos_but (is_ring_thm req) c);; let protect_tac = - Tactics.reduct_option protect_red None ;; + Tactics.reduct_option (protect_red,DEFAULTcast) None ;; let protect_tac_in id = - Tactics.reduct_option protect_red (Some(id,[],(InHyp, ref None)));; + Tactics.reduct_option (protect_red,DEFAULTcast) (Some(id,[],(InHyp, ref None)));; TACTIC EXTEND protect_fv |