]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma
Ī»Ī“-2B is released
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / static / frees_drops.ma
index 698427fee1c128d01cda3a9cef95264b05744cc2..bc5a7056babb2ba2b28e75aa6627e699554963f0 100644 (file)
@@ -20,7 +20,7 @@ include "static_2/static/frees_fqup.ma".
 
 (* Advanced properties ******************************************************)
 
-lemma frees_atom_drops: 
+lemma frees_atom_drops:
       āˆ€b,L,i. ā‡©*[b,š”ā“iāµ] L ā‰˜ ā‹† ā†’
       āˆ€f. šˆā¦ƒfā¦„ ā†’ L āŠ¢ š…+ā¦ƒ#iā¦„ ā‰˜ ā«Æ*[i]ā†‘f.
 #b #L elim L -L /2 width=1 by frees_atom/
@@ -31,7 +31,7 @@ lemma frees_atom_drops:
 qed.
 
 lemma frees_pair_drops:
-      āˆ€f,K,V. K āŠ¢ š…+ā¦ƒVā¦„ ā‰˜ f ā†’ 
+      āˆ€f,K,V. K āŠ¢ š…+ā¦ƒVā¦„ ā‰˜ f ā†’
       āˆ€i,I,L. ā‡©*[i] L ā‰˜ K.ā“‘{I}V ā†’ L āŠ¢ š…+ā¦ƒ#iā¦„ ā‰˜ ā«Æ*[i] ā†‘f.
 #f #K #V #Hf #i elim i -i
 [ #I #L #H lapply (drops_fwd_isid ā€¦ H ?) -H /2 width=1 by frees_pair/