diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-21 17:03:52 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-21 17:03:52 +0000 |
commit | ed06a90f16fcf7d45672bbddf42efe4cc0efd4d4 (patch) | |
tree | 51889eb68a73e054d999494a6f50013dd99d711e /theories/Init/Logic.v | |
parent | 41744ad1706fc5f765430c63981bf437345ba9fe (diff) |
theories/, plugins/ and test-suite/ ported to the Arguments vernacular
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14718 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init/Logic.v')
-rw-r--r-- | theories/Init/Logic.v | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index b9e22f15e..d1eabcabf 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -62,8 +62,8 @@ Inductive or (A B:Prop) : Prop := where "A \/ B" := (or A B) : type_scope. -Implicit Arguments or_introl [A B] [A]. -Implicit Arguments or_intror [A B] [B]. +Arguments or_introl [A B] _, [A] B _. +Arguments or_intror [A B] _, A [B] _. (** [iff A B], written [A <-> B], expresses the equivalence of [A] and [B] *) @@ -270,12 +270,12 @@ Notation "x = y" := (x = y :>_) : type_scope. Notation "x <> y :> T" := (~ x = y :>T) : type_scope. Notation "x <> y" := (x <> y :>_) : type_scope. -Implicit Arguments eq [[A]]. -Implicit Arguments eq_refl [[A] [x]] [A]. +Arguments eq {A} x _. +Arguments eq_refl {A x} , [A] x. -Implicit Arguments eq_ind [A]. -Implicit Arguments eq_rec [A]. -Implicit Arguments eq_rect [A]. +Arguments eq_ind [A] x P _ y _. +Arguments eq_rec [A] x P _ y _. +Arguments eq_rect [A] x P _ y _. Hint Resolve I conj or_introl or_intror eq_refl: core. Hint Resolve ex_intro ex_intro2: core. |