(* File: My_Arith.v  (last edited on 25/10/2000) (c) Klaus Weich  *)
(******* List stuff ***********************************************)
intros A B f o l0 l1 x f_perm.
elim l0; clear l0.
trivial.
intros a0 l0 ih.
simpl in |- *.
rewrite ih.
simpl in |- *.
apply f_perm.
Qed.
(********************************************************************)
intros n.
rewrite (plus_comm n 0).
simpl in |- *.
trivial.
Qed.

Lemma n_Sn_false : forall n : nat, n = S n -> False.