(* Properties on basic slicing **********************************************)
lemma lsuby_drop_trans_be: ∀L1,L2,d,e. L1 ⊆[d, e] L2 →
- â\88\80I2,K2,W,s,i. â\87©[s, 0, i] L2 ≡ K2.ⓑ{I2}W →
+ â\88\80I2,K2,W,s,i. â¬\87[s, 0, i] L2 ≡ K2.ⓑ{I2}W →
d ≤ i → i < d + e →
- â\88\83â\88\83I1,K1. K1 â\8a\86[0, â«°(d+e-i)] K2 & â\87©[s, 0, i] L1 ≡ K1.ⓑ{I1}W.
+ â\88\83â\88\83I1,K1. K1 â\8a\86[0, â«°(d+e-i)] K2 & â¬\87[s, 0, i] L1 ≡ K1.ⓑ{I1}W.
#L1 #L2 #d #e #H elim H -L1 -L2 -d -e
[ #L1 #d #e #J2 #K2 #W #s #i #H
elim (drop_inv_atom1 … H) -H #H destruct