Added examples.

[helm.git] / helm / gTopLevel / esempi / apply.cic

diff --git a/helm/gTopLevel/esempi/apply.cic b/helm/gTopLevel/esempi/apply.cic
new file mode 100644 (file)
index 0000000..fb27e16
--- /dev/null
+++ b/helm/gTopLevel/esempi/apply.cic
@@ -0,0 +1,21 @@
+alias nat    /Coq/Init/Datatypes/nat.ind#1/1
+alias eq     /Coq/Init/Logic/Equality/eq.ind#1/1
+alias eq_ind /Coq/Init/Logic/Equality/eq_ind.con
+alias O      /Coq/Init/Datatypes/nat.ind#1/1/1
+alias S      /Coq/Init/Datatypes/nat.ind#1/1/2
+alias plus   /Coq/Init/Peano/plus.con
+alias mult   /Coq/Init/Peano/mult.con
+alias le     /Coq/Init/Peano/le.ind#1/1
+alias lt     /Coq/Init/Peano/lt.con
+alias not    /Coq/Init/Logic/not.con
+(eq nat (\x:nat.\y:nat.O O O) (\x:nat.\y:nat.O O O))
+/Coq/Init/Logic/f_equal2.con
+/Coq/Init/Logic/Equality/eq.ind#1/1/1
+
+(*
+(le O (S O))
+/Coq/Arith/Gt/gt_S_le.con
+
+(not (lt O (plus O O)))
+/Coq/Arith/Lt/lt_n_n.con
+*)