-theorem pippo: \forall (P,Q,R:nat \to Prop).
- \forall x,y. x=y \to P x \to Q x \to R x.
- intros.
- rewrite > P in Q.
-(*
-theorem pippo: \forall (P,Q,R:nat \to Prop).
- \forall x,y. x=y \to P x \to Q x \to R x.
- intros. rewrite > H in y.
-*)
\ No newline at end of file