9 lines
178 B
Text
9 lines
178 B
Text
def stack := list nat
|
|
instance : has_append stack :=
|
|
by unfold stack; apply_instance
|
|
|
|
example (s : stack) : s ++ [] = s :=
|
|
begin
|
|
induction s,
|
|
refl, apply list.append_nil
|
|
end
|