X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Fesempi%2Fand_implies_or.cic;fp=helm%2FgTopLevel%2Fesempi%2Fand_implies_or.cic;h=c47bf76b63cdfb04bc8e77296f48ac46a4db3a47;hb=fde1a6daa3aaa72c5c7536f4d2c65a3873b1c1bc;hp=0000000000000000000000000000000000000000;hpb=f848c99a78351881e99e5af6c7daab6b0c05f4b2;p=helm.git

diff --git a/helm/gTopLevel/esempi/and_implies_or.cic b/helm/gTopLevel/esempi/and_implies_or.cic
new file mode 100644
index 000000000..c47bf76b6
--- /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) }