]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma
some restyling ...
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / static / lsubf_lsubf.ma
index 79f33abdad8f77bf507ef12a273621fc3494d3c9..bed259cf545a803167ff72e5bdf33e8d255c873d 100644 (file)
@@ -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