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