set "baseuri" "cic:/matita/tests/dependent_injection".
-include "legacy/coq.ma".
+include "../legacy/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)".
(that state the existence of a ?1 such that ...) *)
theorem injection_test3:
∀t,t'. tnode nat t tempty = tnode nat t' tempty → t = t'.
- intros;
- destruct H;
- assumption.
+ intros.
+ destruct H.
+ reflexivity.
qed.
theorem injection_test3: