#B #A #IHB #IHA @mk_gcr
[ #G #L #T #H
elim (cp1 … H1RP G L) #k #HK
- lapply (H L (⋆k) T (◊) ? ? ?) -H //
- [ lapply (s2 â\80¦ IHB G L (â\92º) … HK) //
+ lapply (H L (⋆k) T (𝐞) ? ? ?) -H //
+ [ lapply (s2 â\80¦ IHB G L (â\93\94) … HK) //
| /3 width=6 by s1, cp3/
]
| #G #L #Vs #HVs #T #H1T #H2T #L0 #V0 #X #cs #HL0 #H #HB
lapply (acr_gcr … H1RP H2RP B) #HCB
elim (lifts_inv_bind1 … H) -H #W0 #T0 #HW0 #HT0 #H destruct
lapply (gcr_lifts … H1RP … HL0 … HW0 HW) -HW #HW0
-lapply (s3 â\80¦ HCA â\80¦ a G L0 (â\92º)) #H @H -H
-lapply (s6 â\80¦ HCA G L0 (â\92º) (â\92º) ?) // #H @H -H
+lapply (s3 â\80¦ HCA â\80¦ a G L0 (â\93\94)) #H @H -H
+lapply (s6 â\80¦ HCA G L0 (â\93\94) (â\93\94) ?) // #H @H -H
[ @(HA … HL0) //
| lapply (s1 … HCB) -HCB #HCB
- lapply (s7 â\80¦ H2RP G L0 (â\92º)) /3 width=1 by/
+ lapply (s7 â\80¦ H2RP G L0 (â\93\94)) /3 width=1 by/
]
qed.