-lemma cpm_inv_atom1_drops: ∀n,h,I,G,L,T2. ⦃G,L⦄ ⊢ ⓪{I} ➡[n,h] T2 →
- ∨∨ T2 = ⓪{I} ∧ n = 0
- | ∃∃s. T2 = ⋆(next h s) & I = Sort s & n = 1
- | â\88\83â\88\83K,V,V2,i. â¬\87*[i] L â\89\98 K.â\93\93V & â¦\83G,Kâ¦\84 â\8a¢ V â\9e¡[n,h] V2 &
- â¬\86*[↑i] V2 ≘ T2 & I = LRef i
- | â\88\83â\88\83m,K,V,V2,i. â¬\87*[i] L â\89\98 K.â\93\9bV & â¦\83G,Kâ¦\84 â\8a¢ V â\9e¡[m,h] V2 &
- â¬\86*[↑i] V2 ≘ T2 & I = LRef i & n = ↑m.
-#n #h #I #G #L #T2 * #c #Hc #H elim (cpg_inv_atom1_drops … H) -H *
+lemma cpm_inv_atom1_drops: ∀h,n,I,G,L,T2. ❪G,L❫ ⊢ ⓪[I] ➡[h,n] T2 →
+ ∨∨ T2 = ⓪[I] ∧ n = 0
+ | ∃∃s. T2 = ⋆(⫯[h]s) & I = Sort s & n = 1
+ | â\88\83â\88\83K,V,V2,i. â\87©[i] L â\89\98 K.â\93\93V & â\9dªG,Kâ\9d« â\8a¢ V â\9e¡[h,n] V2 &
+ â\87§[↑i] V2 ≘ T2 & I = LRef i
+ | â\88\83â\88\83m,K,V,V2,i. â\87©[i] L â\89\98 K.â\93\9bV & â\9dªG,Kâ\9d« â\8a¢ V â\9e¡[h,m] V2 &
+ â\87§[↑i] V2 ≘ T2 & I = LRef i & n = ↑m.
+#h #n #I #G #L #T2 * #c #Hc #H elim (cpg_inv_atom1_drops … H) -H *