From d4c19fb0dd97bfcbc2f88ad827fa0352f01fb22b Mon Sep 17 00:00:00 2001
From: gabrielhdt <gabrielhondet@gmail.com>
Date: Wed, 15 Apr 2020 16:52:49 +0200
Subject: [PATCH] some more exfalso

---
 sandbox/boolops.lp | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/sandbox/boolops.lp b/sandbox/boolops.lp
index 7e3f415..e5cde10 100644
--- a/sandbox/boolops.lp
+++ b/sandbox/boolops.lp
@@ -3,7 +3,7 @@
 require open personoj.encodings.lhol
 require open personoj.encodings.pvs_cert
 require open personoj.encodings.equality
-require open personoj.encodings.booleans
+require open personoj.encodings.bool_hol
 
 symbol imp: ∀P: Bool, (ε P ⇒ η bool) ⇒ η bool
 set infix left 6 "⊃" ≔ imp
@@ -13,13 +13,24 @@ require personoj.paper.rat as Q
 set builtin "0" ≔ Q.Z
 set builtin "+1" ≔ Q.S
 
-theorem zisnotz (h: ε false): ε (Q.{|nznat?|} 0)
+theorem exfalso (_: ε false) (P: Bool): ε P
 proof
-  assume Hf _
-  refine Hf
+  assume false P
+  refine false P
 qed
 
-// Computes ⊥ ⊃ (1 / 0) = 1 / 0
+// Computes ⊥ ⊃ (1/0 = 1/0)
 compute false ⊃ (λh,
-                 let ooz ≔ Q.div 1 (pair 0 (zisnotz h)) in
+                 let ooz ≔ Q.div 1 (pair 0 (exfalso h (Q.{|nznat?|} 0))) in
                  eq ooz ooz)
+
+definition Qone ≔ Q.div 1 (pair 1 (Q.s_not_z 0))
+
+// If ⊥ then 1/0 else 1/1
+compute if false (λh: ε false,
+                  let z ≔ pair 0 (exfalso h (Q.{|nznat?|} 0)) in
+                  Q.div 1 z)
+                 (λ_, Qone)
+
+// TODO: some work with excluded middle to have the same proposition
+// as above but with [if true] and reversed arguments.
-- 
GitLab