helm/matita/tests/test2.ma

   1 set "baseuri" "cic:/matita/tests/".
   2
   3 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
   4 alias symbol "and" (instance 0) = "logical and".
   5 alias symbol "eq" (instance 0) = "leibnitz's equality".
   6 theorem a:\forall x:nat.x=x\land x=x.
   7 intro.
   8 split.
   9 reflexivity.
  10 reflexivity.
  11 qed.