view src/AxiomsImpred.v @ 228:0be1a42b3035

Proof-reading pass through first bit of Universes
author Adam Chlipala <adamc@hcoop.net>
date Fri, 20 Nov 2009 10:18:35 -0500
parents 7fd470d8a788
children
line wrap: on
line source
(* Copyright (c) 2008, Adam Chlipala
 * 
 * This work is licensed under a
 * Creative Commons Attribution-Noncommercial-No Derivative Works 3.0
 * Unported License.
 * The license text is available at:
 *   http://creativecommons.org/licenses/by-nc-nd/3.0/
 *)

(* Additional axioms not in the Coq standard library, including those that need impredicativity *)

Set Implicit Arguments.

Require Import Axioms.
Export Axioms.

Theorem ext_eq_forall_Set : forall (A : Type)
  (f g : A -> Set),
  (forall x, f x = g x)
  -> @eq Set (forall x, f x) (forall x, g x).
  intros.
  rewrite (ext_eq _ _ _ H); trivial.
Qed.

Ltac ext_eq := (apply ext_eq || apply ext_eq_Set
  || apply ext_eq_forall || apply ext_eq_forall_Set); intro.