lean2/tests/lean/run/opaque_hint_bug.lean

14 lines
231 B
Text
Raw Normal View History

inductive list (T : Type) : Type :=
nil {} : list T,
cons : T → list T → list T
section
parameter {T : Type}
definition concat (s t : list T) : list T
:= list.rec t (fun x l u, list.cons x u) s
reducible concat
end