lean2/tests/lean/run/opaque_hint_bug.lean

14 lines
242 B
Text
Raw Normal View History

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