555d26aa61
TODO: support foldl/foldr and binders
18 lines
386 B
Text
18 lines
386 B
Text
import logic data.nat.basic
|
||
open num
|
||
constant b : num
|
||
check b + b + b
|
||
check true ∧ false ∧ true
|
||
check (true ∧ false) ∧ true
|
||
check 2 + (2 + 2)
|
||
check (2 + 2) + 2
|
||
check 1 = (2 + 3)*2
|
||
check 2 + 3 * 2 = 3 * 2 + 2
|
||
check (true ∨ false) = (true ∨ false) ∧ true
|
||
check true ∧ (false ∨ true)
|
||
constant A : Type₁
|
||
constant a : A
|
||
notation 1 := a
|
||
check a
|
||
open nat
|
||
check ℕ → ℕ
|