diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-27 19:43:51 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-27 19:43:51 +0000 |
commit | 36c448f43c7fa16163b543b941be4a917a712a37 (patch) | |
tree | 73affd4fede1fea0dd56a2600bc420de769432e2 /theories/Classes | |
parent | 3178c7a29ff8b57a4598c4c5ded2eb29b8067dcf (diff) |
Add a new vernacular command for controling implicit generalization of
variables with syntax:
[Local?|Global] Generalizable Variable(s)? [all|none|id1 idn].
By default no variable is generalizable, so this patch breaks backward
compatibility with files that used implicit generalization (through
Instance declarations for example). To get back the old behavior, one
just needs to use [Global Generalizable Variables all].
Make coq_makefile more robust using [mkdir -p].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12428 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes')
-rw-r--r-- | theories/Classes/EquivDec.v | 2 | ||||
-rw-r--r-- | theories/Classes/Equivalence.v | 2 | ||||
-rw-r--r-- | theories/Classes/Functions.v | 2 | ||||
-rw-r--r-- | theories/Classes/Morphisms.v | 2 | ||||
-rw-r--r-- | theories/Classes/RelationClasses.v | 2 | ||||
-rw-r--r-- | theories/Classes/SetoidAxioms.v | 2 | ||||
-rw-r--r-- | theories/Classes/SetoidClass.v | 2 | ||||
-rw-r--r-- | theories/Classes/SetoidDec.v | 2 | ||||
-rw-r--r-- | theories/Classes/SetoidTactics.v | 4 |
9 files changed, 20 insertions, 0 deletions
diff --git a/theories/Classes/EquivDec.v b/theories/Classes/EquivDec.v index e87482d84..bafbac3f1 100644 --- a/theories/Classes/EquivDec.v +++ b/theories/Classes/EquivDec.v @@ -26,6 +26,8 @@ Require Import Coq.Bool.Bool. Require Import Coq.Arith.Peano_dec. Require Import Coq.Program.Program. +Generalizable Variables A B R. + Open Scope equiv_scope. Class DecidableEquivalence `(equiv : Equivalence A) := diff --git a/theories/Classes/Equivalence.v b/theories/Classes/Equivalence.v index 78e66d374..cc8d79c03 100644 --- a/theories/Classes/Equivalence.v +++ b/theories/Classes/Equivalence.v @@ -25,6 +25,8 @@ Require Import Coq.Classes.Morphisms. Set Implicit Arguments. Unset Strict Implicit. +Generalizable Variables A R eqA B S eqB. + Open Local Scope signature_scope. Definition equiv `{Equivalence A R} : relation A := R. diff --git a/theories/Classes/Functions.v b/theories/Classes/Functions.v index 8c6161036..5efa4fa8f 100644 --- a/theories/Classes/Functions.v +++ b/theories/Classes/Functions.v @@ -17,6 +17,8 @@ Require Import Coq.Classes.RelationClasses. Require Import Coq.Classes.Morphisms. +Generalizable Variables A B eqA eqB RA RB f. + Set Implicit Arguments. Unset Strict Implicit. diff --git a/theories/Classes/Morphisms.v b/theories/Classes/Morphisms.v index 76da120e0..ac455415e 100644 --- a/theories/Classes/Morphisms.v +++ b/theories/Classes/Morphisms.v @@ -20,6 +20,8 @@ Require Import Coq.Program.Tactics. Require Import Coq.Relations.Relation_Definitions. Require Export Coq.Classes.RelationClasses. +Generalizable Variables all. + (** * Morphisms. We now turn to the definition of [Proper] and declare standard instances. diff --git a/theories/Classes/RelationClasses.v b/theories/Classes/RelationClasses.v index 0d6130263..cc3cae4da 100644 --- a/theories/Classes/RelationClasses.v +++ b/theories/Classes/RelationClasses.v @@ -74,6 +74,8 @@ Hint Extern 4 => solve_relation : relations. (** We can already dualize all these properties. *) +Generalizable Variables A B C D R S T U eqA eqB eqC eqD. + Program Lemma flip_Reflexive `(Reflexive A R) : Reflexive (flip R). Proof. tauto. Qed. diff --git a/theories/Classes/SetoidAxioms.v b/theories/Classes/SetoidAxioms.v index ef115b2ed..3789bb66f 100644 --- a/theories/Classes/SetoidAxioms.v +++ b/theories/Classes/SetoidAxioms.v @@ -19,6 +19,8 @@ Require Import Coq.Program.Program. Set Implicit Arguments. Unset Strict Implicit. +Generalizable Variables a. + Require Export Coq.Classes.SetoidClass. (** Application of the extensionality axiom to turn a goal on diff --git a/theories/Classes/SetoidClass.v b/theories/Classes/SetoidClass.v index 33d98548d..995b37185 100644 --- a/theories/Classes/SetoidClass.v +++ b/theories/Classes/SetoidClass.v @@ -17,6 +17,8 @@ Set Implicit Arguments. Unset Strict Implicit. +Generalizable Variables A. + Require Import Coq.Program.Program. Require Import Relation_Definitions. diff --git a/theories/Classes/SetoidDec.v b/theories/Classes/SetoidDec.v index 32e75adae..33b4350f8 100644 --- a/theories/Classes/SetoidDec.v +++ b/theories/Classes/SetoidDec.v @@ -18,6 +18,8 @@ Set Implicit Arguments. Unset Strict Implicit. +Generalizable Variables A B . + (** Export notations. *) Require Export Coq.Classes.SetoidClass. diff --git a/theories/Classes/SetoidTactics.v b/theories/Classes/SetoidTactics.v index c40e37e24..669be8b0f 100644 --- a/theories/Classes/SetoidTactics.v +++ b/theories/Classes/SetoidTactics.v @@ -18,6 +18,8 @@ Require Import Coq.Classes.Morphisms Coq.Classes.Morphisms_Prop. Require Export Coq.Classes.RelationClasses Coq.Relations.Relation_Definitions. Require Import Coq.Classes.Equivalence Coq.Program.Basics. +Generalizable Variables A R. + Export ProperNotations. Set Implicit Arguments. @@ -177,3 +179,5 @@ Ltac default_add_morphism_tactic := Ltac add_morphism_tactic := default_add_morphism_tactic. Obligation Tactic := program_simpl. + +(* Notation "'Morphism' s t " := (@Proper _ (s%signature) t) (at level 10, s at next level, t at next level). *) |