File tree Expand file tree Collapse file tree 2 files changed +0
-20
lines changed
LogicFormalization/Chapter2/Section1 Expand file tree Collapse file tree 2 files changed +0
-20
lines changed Original file line number Diff line number Diff 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-
108101namespace List
109102variable {α: Type u} {β: Type v} {l₁ l₂: List (List α)} {pred: List α → Bool}
110103
Original file line number Diff line number Diff line change @@ -16,19 +16,6 @@ namespace Prop'
1616
1717variable {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]
3320def length : Prop ' A → ℕ
3421| .atom _ | .true | .false => 1
You can’t perform that action at this time.
0 commit comments