(* Inversion lemmas with simple terms ***************************************)
-lemma cpx_inv_appl1_simple: â\88\80h,G,L,V1,T1,U. â¦\83G,Lâ¦\84 â\8a¢ â\93\90V1.T1 â¬\88[h] U â\86\92 ð\9d\90\92â¦\83T1â¦\84 →
- â\88\83â\88\83V2,T2. â¦\83G,Lâ¦\84 â\8a¢ V1 â¬\88[h] V2 & â¦\83G,Lâ¦\84 ⊢ T1 ⬈[h] T2 &
+lemma cpx_inv_appl1_simple: â\88\80h,G,L,V1,T1,U. â\9dªG,Lâ\9d« â\8a¢ â\93\90V1.T1 â¬\88[h] U â\86\92 ð\9d\90\92â\9dªT1â\9d« →
+ â\88\83â\88\83V2,T2. â\9dªG,Lâ\9d« â\8a¢ V1 â¬\88[h] V2 & â\9dªG,Lâ\9d« ⊢ T1 ⬈[h] T2 &
U = ⓐV2.T2.
#h #G #L #V1 #T1 #U * #c #H #HT1 elim (cpg_inv_appl1_simple … H) -H
/3 width=5 by ex3_2_intro, ex_intro/