lean2/tests/lean/hott/876.hlean

7 lines
131 B
Text
Raw Normal View History

example : Σ(X : Type₀), X → unit :=
begin
fapply sigma.mk,
{ exact unit},
{ intro x, induction x, exact unit.star }
end