diff options
Diffstat (limited to 'theories/Program')
-rw-r--r-- | theories/Program/Equality.v | 4 | ||||
-rw-r--r-- | theories/Program/Syntax.v | 14 | ||||
-rw-r--r-- | theories/Program/Wf.v | 2 |
3 files changed, 8 insertions, 12 deletions
diff --git a/theories/Program/Equality.v b/theories/Program/Equality.v index 37c17aa9a..2f0185eac 100644 --- a/theories/Program/Equality.v +++ b/theories/Program/Equality.v @@ -39,8 +39,8 @@ Notation " x ~= y " := (@JMeq _ x _ y) (at level 70, no associativity). (** Notation for the single element of [x = x] and [x ~= x]. *) -Implicit Arguments eq_refl [[A] [x]]. -Implicit Arguments JMeq_refl [[A] [x]]. +Implicit Arguments eq_refl [[A] [x]] [A]. +Implicit Arguments JMeq_refl [[A] [x]] [A]. (** Do something on an heterogeneous equality appearing in the context. *) diff --git a/theories/Program/Syntax.v b/theories/Program/Syntax.v index c185ced8f..fb8dc087b 100644 --- a/theories/Program/Syntax.v +++ b/theories/Program/Syntax.v @@ -18,16 +18,14 @@ Notation " () " := tt. (** Set maximally inserted implicit arguments for standard definitions. *) -Implicit Arguments eq [[A]]. - Implicit Arguments Some [[A]]. Implicit Arguments None [[A]]. -Implicit Arguments inl [[A] [B]]. -Implicit Arguments inr [[A] [B]]. +Implicit Arguments inl [[A] [B]] [A]. +Implicit Arguments inr [[A] [B]] [B]. -Implicit Arguments left [[A] [B]]. -Implicit Arguments right [[A] [B]]. +Implicit Arguments left [[A] [B]] [A]. +Implicit Arguments right [[A] [B]] [B]. Implicit Arguments pair [[A] [B]]. Implicit Arguments fst [[A] [B]]. @@ -46,8 +44,8 @@ Notation " [ x ; .. ; y ] " := (cons x .. (cons y nil) ..) : list_scope. Require Import Bvector. -Implicit Arguments Vnil [[A]]. -Implicit Arguments Vcons [[A] [n]]. +Implicit Arguments Vnil [[A]] []. +Implicit Arguments Vcons [[A] [n]] []. (** Treating n-ary exists *) diff --git a/theories/Program/Wf.v b/theories/Program/Wf.v index abab954af..a823aedd3 100644 --- a/theories/Program/Wf.v +++ b/theories/Program/Wf.v @@ -14,8 +14,6 @@ Require Import ProofIrrelevance. Open Local Scope program_scope. -Implicit Arguments Acc_inv [A R x y]. - Section Well_founded. Variable A : Type. Variable R : A -> A -> Prop. |