Added examples.

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

diff --git a/helm/gTopLevel/esempi/and_implies_or.cic b/helm/gTopLevel/esempi/and_implies_or.cic
new file mode 100644 (file)
index 0000000..c47bf76
--- /dev/null
+++ b/helm/gTopLevel/esempi/and_implies_or.cic
@@ -0,0 +1,11 @@
+alias and  /Coq/Init/Logic/Conjunction/and.ind#1/1
+alias conj /Coq/Init/Logic/Conjunction/and.ind#1/1/1
+
+alias or        /Coq/Init/Logic/Disjunction/or.ind#1/1
+alias or_introl /Coq/Init/Logic/Disjunction/or.ind#1/1/1
+alias or_intror /Coq/Init/Logic/Disjunction/or.ind#1/1/2
+
+\A:Prop.
+\B:Prop.
+\H:(and A B).
+ Case (H : and ; (or A B)) { \a:A.\b:B.(or_introl A B a) }