X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsubf_lsubf.ma;h=f4d632339b8f0c573f9c33b05ace4cd62df02b90;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=8ad9f517d929336cd921b0fe86e8f7fe0801563c;hpb=98e786e1a6bd7b621e37ba7cd4098d4a0a6f8278;p=helm.git

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 8ad9f517d..f4d632339 100644
--- a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma
@@ -20,9 +20,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❫.
+        ∀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