X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flsubf_lsubf.ma;h=63211ac45bc186ae4a7d55fcd9d37eb41c07587d;hp=ff05e01079a54e86af909acefe96b589316090bb;hb=222044da28742b24584549ba86b1805a87def070;hpb=86d7622f88247d83b2c366a722d2994a4af91929

diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma
index ff05e0107..63211ac45 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma
@@ -21,7 +21,7 @@ include "basic_2/static/lsubf.ma".
 
 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⦄.
+                   ∀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