.. 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.