Non-empty list has last element

Stream: new members

[Martin Dvořák]

How can I prove that a non-empty list has last element, please? See MWE below.

example (α : Type) (a : list α) (h: list.length a > 0) :
  ∃ x : α, ∃ xs : list α, a = xs ++ [x] :=
begin
  sorry,
end