]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/lib/arithmetics/chinese_reminder.ma
Minor changes because of the new, weaker (but much faster) delift.
[helm.git] / matita / matita / lib / arithmetics / chinese_reminder.ma
index 0837e429e2eb4e97d0d558934eea16e5db98dd30..b327c341387c6276e3b4ad5ebbed7e7aa253faaa 100644 (file)
@@ -118,9 +118,9 @@ theorem mod_cr_pair : ∀m,n,a,b. a < m → b < n → gcd n m = 1 →
 #m #n #a #b #ltam #ltbn #pnm 
 cut (andb (eqb ((cr_pair m n a b) \mod m) a) 
          (eqb ((cr_pair m n a b) \mod n) b) = true)
-  [@f_min_true cases(congruent_ab_lt m n a b ?? pnm)
+  [whd in match (cr_pair m n a b) @f_min_true cases(congruent_ab_lt m n a b ?? pnm)
     [#x * * #cxa #cxb #ltx @(ex_intro ?? x) % /2/
-     >eq_to_eqb_true 
+     >eq_to_eqb_true
       [>eq_to_eqb_true // <(lt_to_eq_mod …ltbn) //
       |<(lt_to_eq_mod …ltam) //
       ]