X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsubf_lsubf.ma;h=bed259cf545a803167ff72e5bdf33e8d255c873d;hp=79f33abdad8f77bf507ef12a273621fc3494d3c9;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma index 79f33abda..bed259cf5 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma @@ -19,9 +19,9 @@ include "static_2/static/lsubf.ma". (* Main properties **********************************************************) -theorem lsubf_sor: ∀K,L,g1,f1. ⦃K, g1⦄ ⫃𝐅* ⦃L, f1⦄ → - ∀g2,f2. ⦃K, g2⦄ ⫃𝐅* ⦃L, f2⦄ → - ∀g. g1 ⋓ g2 ≘ g → ∀f. f1 ⋓ f2 ≘ f → ⦃K, g⦄ ⫃𝐅* ⦃L, f⦄. +theorem lsubf_sor: ∀K,L,g1,f1. ⦃K,g1⦄ ⫃𝐅* ⦃L,f1⦄ → + ∀g2,f2. ⦃K,g2⦄ ⫃𝐅* ⦃L,f2⦄ → + ∀g. g1 ⋓ g2 ≘ g → ∀f. f1 ⋓ f2 ≘ f → ⦃K,g⦄ ⫃𝐅* ⦃L,f⦄. #K elim K -K [ #L #g1 #f1 #H1 #g2 #f2 #H2 #g #Hg #f #Hf elim (lsubf_inv_atom1 … H1) -H1 #H1 #H destruct