Complete this form and hit the "Save Changes" button!
No ratings
Are you sure you want to delete this code? Please type DELETE in the box below to confirm.
Are you sure you want to verify this code?
Are you sure you want to publish this code?
Are you sure you want to unpublish this code?
Are you sure you want to autogenerate the summary + description for this code?
xxxxxxxxxx
(* Exercise 5.16 *)
Definition my_le (n p : nat) :=
forall P : nat -> Prop, P n -> (forall q : nat, P q -> P (S q)) -> P p.
Lemma my_le_n : forall n : nat, my_le n n.
Proof.
unfold my_le.
intros n P H H0.
assumption.
Qed.
Lemma my_le_S : forall n p : nat, my_le n p -> my_le n (S p).
intros n p H P H0 H1.
apply H1.
apply H.
intros q H2.
Lemma my_le_le : forall n p : nat, my_le n p -> n <= p.
intros n p H.
pattern p.
apply le_n.
intros q H0.
apply le_S.