8 lines
160 B
Text
8 lines
160 B
Text
check
|
|
let f x y := x ∧ y,
|
|
g x := f x x,
|
|
a := g true
|
|
in λ (x : a),
|
|
let h x y := f x (g y),
|
|
b := h
|
|
in b
|