Skip to content

Instantly share code, notes, and snippets.

@einblicker
Created February 23, 2012 09:45
Show Gist options
  • Save einblicker/1891982 to your computer and use it in GitHub Desktop.
Save einblicker/1891982 to your computer and use it in GitHub Desktop.
∀Z.(A -> Z) iff (A -> ∀Z.Z) の証明
Parameter A : Prop.
Goal (forall X : Prop, (A -> X)) -> (A -> (forall X : Prop, X)).
intros.
apply H.
assumption.
Qed.
Goal (A -> (forall X : Prop, X)) -> (forall X : Prop, (A -> X)).
intros.
exact (H H0 X).
Qed.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment