lean4-htt/old_tests/tests/lean/run/1658.lean
2018-04-10 12:56:55 -07:00

14 lines
224 B
Text

constant p : bool → bool
constant P : bool → Prop
noncomputable def lp : bool → bool
| ff := p ff
| tt := p tt
def foo (b : bool) : Prop :=
P (lp b)
constant T : bool → Type
def boo (b : bool) : Type :=
T (lp b)