proposition: Lemma between_restr : forall k l (m:nat), k <= l -> l <= m -> between k m -> between l m.
proof: Proof. induction 1; auto. intros; auto. apply between_Sk_l; auto. apply IHle; auto. transitivity (S m0); auto. Qed.
imports: PeanoNat