feat: add theorem for tutorial

This commit is contained in:
Leonardo de Moura 2021-08-26 12:58:02 -07:00
parent c897f63dd0
commit 8ba10521e6

View file

@ -45,6 +45,9 @@ theorem reverseAux_reverseAux (as bs cs : List α) : reverseAux (reverseAux as b
| nil => rfl
| cons a as ih => simp [reverseAux, ih (a::bs), ih [a]]
@[simp] theorem reverse_reverse (as : List α) : as.reverse.reverse = as := by
simp [reverse]; rw [reverseAux_reverseAux_nil]; rfl
protected def append : List α → List α → List α
| [], bs => bs
| a::as, bs => a :: List.append as bs