(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/tests/dependent_injection".
-include "../legacy/coq.ma".
+
+include "coq.ma".
alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
alias id "bool" = "cic:/Coq/Init/Datatypes/bool.ind#xpointer(1/1)".
∀t,t'. tnode nat t tempty = tnode nat t' tempty → t = t'.
intros.
destruct H.
- assumption.
+ reflexivity.
qed.
theorem injection_test3: