diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-10-02 20:27:59 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-03-03 14:42:04 +0100 |
| commit | 4e85cc6e9792da116f1b20e484b2ce629c6f6865 (patch) | |
| tree | c8e58e916d958a41c06e60352e12ef12f33bd0c7 /theories/Logic | |
| parent | 9c21392c7957a0a1a66e5269022d5991649a38b5 (diff) | |
Adding explicitly a file to work in the context of propositional extensionality.
Diffstat (limited to 'theories/Logic')
| -rw-r--r-- | theories/Logic/PropExtensionality.v | 22 | ||||
| -rw-r--r-- | theories/Logic/vo.itarget | 1 |
2 files changed, 23 insertions, 0 deletions
diff --git a/theories/Logic/PropExtensionality.v b/theories/Logic/PropExtensionality.v new file mode 100644 index 000000000..796c60273 --- /dev/null +++ b/theories/Logic/PropExtensionality.v @@ -0,0 +1,22 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(** This module states propositional extensionality and draws + consequences of it *) + +Axiom propositional_extensionality : + forall (P Q : Prop), (P <-> Q) -> P = Q. + +Require Import ClassicalFacts. + +Theorem proof_irrelevance : forall (P:Prop) (p1 p2:P), p1 = p2. +Proof. + apply ext_prop_dep_proof_irrel_cic. + exact propositional_extensionality. +Qed. + diff --git a/theories/Logic/vo.itarget b/theories/Logic/vo.itarget index 71d01c1fb..ef2709b47 100644 --- a/theories/Logic/vo.itarget +++ b/theories/Logic/vo.itarget @@ -26,6 +26,7 @@ IndefiniteDescription.vo JMeq.vo ProofIrrelevanceFacts.vo ProofIrrelevance.vo +PropExtensionality.vo RelationalChoice.vo SetIsType.vo SetoidChoice.vo |