Skip to content

Commit 56ed9ab

Browse files
author
Will Bradley
committed
chore: remove stopgap prefix notation ToString instance for Prop'
1 parent 1a42ac9 commit 56ed9ab

File tree

2 files changed

+0
-20
lines changed

2 files changed

+0
-20
lines changed

LogicFormalization/Chapter2/Section1/NormalForms.lean

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -98,13 +98,6 @@ def conjNF' (p: Prop' A): Prop' A :=
9898
|>.map disj
9999
|> conj
100100

101-
open Notation in
102-
#eval do
103-
let p := P![(¬@'a' ∨ @'b') ∧ ¬@'c' ∧ ⊤]
104-
println! p
105-
println! (disjNF p, disjNF' p)
106-
println! (conjNF p, conjNF' p)
107-
108101
namespace List
109102
variable {α: Type u} {β: Type v} {l₁ l₂: List (List α)} {pred: List α → Bool}
110103

LogicFormalization/Chapter2/Section1/Prop'.lean

Lines changed: 0 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -16,19 +16,6 @@ namespace Prop'
1616

1717
variable {A: Type u}
1818

19-
-- TODO: maybe put this somewhere else?
20-
-- also TODO: replace with a proper delaborator at some point
21-
instance [ToString A]: ToString (Prop' A) where
22-
toString := go
23-
where go -- prefix notation
24-
| .atom a => toString a
25-
| .true => "⊤"
26-
| .false => "⊥"
27-
| .not p => s!{go p}"
28-
| .or p q => s!"∨{go p}{go q}"
29-
| .and p q => s!"∧{go p}{go q}"
30-
31-
3219
@[reducible]
3320
def length: Prop' A → ℕ
3421
| .atom _ | .true | .false => 1

0 commit comments

Comments
 (0)