Advertisement
Guest User

Untitled

a guest
Dec 19th, 2014
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. intros n m. generalize dependent n.
  2.  
  3. Require Import ListTactics.
  4.  
  5. Ltac introNthAcc n acc := match constr:n with
  6. | 0 => intro ; list_iter ltac:(fun x => generalize dependent x) acc
  7. | S ?n =>
  8. let H := fresh "H" in
  9. intro H ; introNthAcc n (cons H acc)
  10. end.
  11.  
  12. Ltac introNth n := introNthAcc n (@nil Prop).
  13.  
  14. Goal forall a b c, a / b / c.
  15.  
  16. introNth 1.
  17.  
  18. intros n m. generalize dependent n.
  19.  
  20. move=> n m; move: n.
  21.  
  22. Lemma my_lemma n m : P n m.
  23. Proof.
  24. move: n.
  25. (* Rest of proof *)
  26. Qed.
  27.  
  28. Lemma my_lemma n m : P n m.
  29. Proof.
  30. elim: n.
  31. (* Rest of proof *)
  32. Qed.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement