(* Properies with simple (neutral) terms ************************************)
(* Basic_2A1: was: simple_tsts_repl_dx *)
-lemma simple_teqo_repl_dx: â\88\80T1,T2. T1 ⩳ T2 â\86\92 ð\9d\90\92â¦\83T1â¦\84 â\86\92 ð\9d\90\92â¦\83T2â¦\84.
+lemma simple_teqo_repl_dx: â\88\80T1,T2. T1 ⩳ T2 â\86\92 ð\9d\90\92â\9dªT1â\9d« â\86\92 ð\9d\90\92â\9dªT2â\9d«.
#T1 #T2 * -T1 -T2 //
#I #V1 #V2 #T1 #T2 #H
elim (simple_inv_pair … H) -H #J #H destruct //
qed-.
(* Basic_2A1: was: simple_tsts_repl_sn *)
-lemma simple_teqo_repl_sn: â\88\80T1,T2. T1 ⩳ T2 â\86\92 ð\9d\90\92â¦\83T2â¦\84 â\86\92 ð\9d\90\92â¦\83T1â¦\84.
+lemma simple_teqo_repl_sn: â\88\80T1,T2. T1 ⩳ T2 â\86\92 ð\9d\90\92â\9dªT2â\9d« â\86\92 ð\9d\90\92â\9dªT1â\9d«.
/3 width=3 by simple_teqo_repl_dx, teqo_sym/ qed-.