7 lines
131 B
Text
7 lines
131 B
Text
import logic
|
|
open bool nat
|
|
|
|
definition set {{T : Type}} := T → bool
|
|
infix `∈` := λx A, A x = tt
|
|
|
|
check 1 ∈ (λ x : nat, tt)
|