(* Forward lemmas with simple terms *****************************************)
(* Basic_2A1: includes: lift_simple_dx *)
-lemma lifts_simple_dx: â\88\80f,T1,T2. â\87§*[f] T1 â\89\98 T2 â\86\92 ð\9d\90\92â¦\83T1â¦\84 â\86\92 ð\9d\90\92â¦\83T2â¦\84.
+lemma lifts_simple_dx: â\88\80f,T1,T2. â\87§*[f] T1 â\89\98 T2 â\86\92 ð\9d\90\92â\9dªT1â\9d« â\86\92 ð\9d\90\92â\9dªT2â\9d«.
#f #T1 #T2 #H elim H -f -T1 -T2 //
#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind … H)
qed-.
(* Basic_2A1: includes: lift_simple_sn *)
-lemma lifts_simple_sn: â\88\80f,T1,T2. â\87§*[f] T1 â\89\98 T2 â\86\92 ð\9d\90\92â¦\83T2â¦\84 â\86\92 ð\9d\90\92â¦\83T1â¦\84.
+lemma lifts_simple_sn: â\88\80f,T1,T2. â\87§*[f] T1 â\89\98 T2 â\86\92 ð\9d\90\92â\9dªT2â\9d« â\86\92 ð\9d\90\92â\9dªT1â\9d«.
#f #T1 #T2 #H elim H -f -T1 -T2 //
#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind … H)
qed-.