lean4-htt/tests/lean/run/noncomp.lean
2025-06-20 17:29:10 +02:00

14 lines
259 B
Text

noncomputable def foo : Nat := Classical.choose (show ∃ x, x = 1 from ⟨1, rfl⟩)
structure Bar (n : Nat) where
x : Nat
def baz : Bar foo :=
{ x := 1 }
structure Bar2 (n : Nat) where
x : Nat
y : Nat
def bax2 : Bar2 foo :=
{ x := 1, y := 2 }