11 lines
177 B
Text
11 lines
177 B
Text
|
import standard
|
||
|
|
|
||
|
|
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
|