Irrefutabilite de la loi de Peirce

2022-05-17 17:26:01 +02:00
parent 0f7a24ae49
commit bbfdad1b78
1 changed files with 38 additions and 0 deletions
@@ -0,0 +1,38 @@
+~~(((A -> B) -> A) -> A)
+intro peirce.
+cut ~~(A \/ ~A).
+intro te.
+apply te.
+intro te2.
+elim te2.
+intro a.
+cut ~A.
+intro f.
+apply f.
+assumption.
+intro a2.
+apply peirce.
+intro f.
+assumption.
+intro na.
+apply peirce.
+intro f.
+apply f.
+intro a.
+cut False.
+intro false.
+elim false.
+apply na.
+assumption.
+intro f.
+cut ~A.
+intro f2.
+cut A \/ ~A.
+assumption.
+right.
+assumption.
+intro a.
+cut A \/ ~A.
+assumption.
+left.
+assumption.