.. raw:: html
.. coq::
Require Import List. (* .none *)
Lemma rev_rev {A} (l: list A) : List.rev (List.rev l) = l. (* .in *)
Proof. (* .in *)
induction l; cbn.
- (* l ← [] *)
reflexivity.
- (* l ← _ :: _ *)
rewrite rev_app_distr. (* .no-hyps *)
rewrite IHl. (* .no-hyps *)
cbn. (* .no-hyps *)
reflexivity.
Qed.