X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Farithmetics%2Fbigops.ma;h=1ba35c62d31cbe04d1eb1aaae64b044ba64e87e9;hb=df4cfc76ab059f6b3d5daf324712ad27ec281088;hp=e51cd799aa11533605db577807b5165ffdd6aff5;hpb=342278d86d2ebb11b046dcc9f44cc5d08cd16352;p=helm.git diff --git a/matita/matita/lib/arithmetics/bigops.ma b/matita/matita/lib/arithmetics/bigops.ma index e51cd799a..1ba35c62d 100644 --- a/matita/matita/lib/arithmetics/bigops.ma +++ b/matita/matita/lib/arithmetics/bigops.ma @@ -241,7 +241,8 @@ theorem bigop_prod: ∀k1,k2,p1,p2,B.∀nil.∀op:Aop B nil.∀f: nat →nat → >Hp1 >(mod_plus_times …) /2 by refl, monotonic_lt_minus_l, eq_f/ |>bigop_Sfalse // >Hind >(pad_bigop (S n*k2)) // @same_bigop #i #lti @leb_elim // #lei cut (i = n*k2+(i-n*k2)) /2 by plus_minus/ - #eqi >eqi in ⊢ (???%); >div_plus_times /2 by refl, monotonic_lt_minus_l, trans_eq/ + #eqi >eqi in ⊢ (???%); >div_plus_times + /2 by refl, monotonic_lt_minus_l, trans_eq/ ] qed.