- â\88\80K0,V0. â¬\87[i] L0 â\89¡ K0.ⓓV0 →
- â\88\80V2. â¦\83G, K0â¦\84 â\8a¢ V0 â\9e¡ V2 â\86\92 â\88\80T2. â¬\86[O, i + 1] V2 â\89¡ T2 →
- â\88\80L1. â¦\83G, L0â¦\84 â\8a¢ â\9e¡ L1 â\86\92 â\88\80L2. â¦\83G, L0â¦\84 â\8a¢ â\9e¡ L2 →
- â\88\83â\88\83T. â¦\83G, L1â¦\84 â\8a¢ #i â\9e¡ T & â¦\83G, L2â¦\84 â\8a¢ T2 â\9e¡ T.
-#G #L0 #i #IH #K0 #V0 #HLK0 #V2 #HV02 #T2 #HVT2 #L1 #HL01 #L2 #HL02
-elim (lpr_drop_conf … HLK0 … HL01) -HL01 #X1 #H1 #HLK1
-elim (lpr_inv_pair1 … H1) -H1 #K1 #V1 #HK01 #HV01 #H destruct
-elim (lpr_drop_conf … HLK0 … HL02) -HL02 #X2 #H2 #HLK2
-elim (lpr_inv_pair1 … H2) -H2 #K2 #W2 #HK02 #_ #H destruct
-lapply (drop_fwd_drop2 … HLK2) -W2 #HLK2
-lapply (fqup_lref … G … HLK0) -HLK0 #HLK0
+ â\88\80K0,V0. â\87©*[i] L0 â\89\98 K0.ⓓV0 →
+ â\88\80V2. â\9dªG0,K0â\9d« â\8a¢ V0 â\9e¡[h] V2 â\86\92 â\88\80T2. â\87§*[â\86\91i] V2 â\89\98 T2 →
+ â\88\80L1. â\9dªG0,L0â\9d« â\8a¢ â\9e¡[h] L1 â\86\92 â\88\80L2. â\9dªG0,L0â\9d« â\8a¢ â\9e¡[h] L2 →
+ â\88\83â\88\83T. â\9dªG0,L1â\9d« â\8a¢ #i â\9e¡[h] T & â\9dªG0,L2â\9d« â\8a¢ T2 â\9e¡[h] T.
+#h #G0 #L0 #i #IH #K0 #V0 #HLK0 #V2 #HV02 #T2 #HVT2 #L1 #HL01 #L2 #HL02
+elim (lpr_drops_conf … HLK0 … HL01) -HL01 // #X1 #H1 #HLK1
+elim (lpr_inv_pair_sn … H1) -H1 #K1 #V1 #HK01 #HV01 #H destruct
+elim (lpr_drops_conf … HLK0 … HL02) -HL02 // #X2 #H2 #HLK2
+elim (lpr_inv_pair_sn … H2) -H2 #K2 #W2 #HK02 #_ #H destruct
+lapply (drops_isuni_fwd_drop2 … HLK2) -W2 // #HLK2
+lapply (fqup_lref (Ⓣ) … G0 … HLK0) -HLK0 #HLK0