]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/multiple/llor_drop.ma
notation update for pointwise union
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / multiple / llor_drop.ma
index d839edcc7daa265a4461bf14a6b109cb825b0a8a..8692a91f19299124b385be139c1593ab4776dab4 100644 (file)
@@ -19,7 +19,7 @@ include "basic_2/multiple/llor_alt.ma".
 
 (* Advanced properties ******************************************************)
 
-lemma llor_skip: â\88\80L1,L2,U,d. |L1| = |L2| â\86\92 yinj (|L1|) â\89¤ d â\86\92 L1 â©\96[U, d] L2 ≡ L1.
+lemma llor_skip: â\88\80L1,L2,U,d. |L1| = |L2| â\86\92 yinj (|L1|) â\89¤ d â\86\92 L1 â\8b\93[U, d] L2 ≡ L1.
 #L1 #L2 #U #d #HL12 #Hd @and3_intro // -HL12
 #I1 #I2 #I #K1 #K2 #K #W1 #W2 #W #i #HLK1 #_ #HLK -L2 -K2
 lapply (drop_mono … HLK … HLK1) -HLK #H destruct
@@ -28,7 +28,7 @@ lapply (drop_fwd_length_lt2 … HLK1) -K1
 qed.
 
 (* Note: lemma 1400 concludes the "big tree" theorem *)
-lemma llor_total: â\88\80L1,L2,T,d. |L1| = |L2| â\86\92 â\88\83L. L1 â©\96[T, d] L2 ≡ L.
+lemma llor_total: â\88\80L1,L2,T,d. |L1| = |L2| â\86\92 â\88\83L. L1 â\8b\93[T, d] L2 ≡ L.
 #L1 @(lenv_ind_alt … L1) -L1
 [ #L2 #T #d #H >(length_inv_zero_sn … H) -L2 /2 width=2 by ex_intro/
 | #I1 #L1 #V1 #IHL1 #Y #T #d >ltail_length #H