diff options
| author | herbelin | 2008-04-29 19:07:00 +0000 |
|---|---|---|
| committer | herbelin | 2008-04-29 19:07:00 +0000 |
| commit | 38241e3cad7f2b5b1e2ed18fd78ba7d18dcc4f67 (patch) | |
| tree | 41b38ca71021f1ed1bb2d4788e92042a47134554 /theories/Init | |
| parent | ef1b4175bad4c71b65a6500bac525f2e822f4336 (diff) | |
Ajout notation [ x ; ... ; y ] dans list_scope. Changement de la
syntaxe interne de ring_lookup et field_lookup qui n'était pas assez
robuste pour supporter une syntaxe [ ... ] dans constr.
Déplacement de now_show de List.v vers Tactics.v, déplacement de "[ _ ]"
au niveau 0.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10872 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Notations.v | 2 | ||||
| -rw-r--r-- | theories/Init/Tactics.v | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/theories/Init/Notations.v b/theories/Init/Notations.v index 9a0406d591..0aee1d4ca7 100644 --- a/theories/Init/Notations.v +++ b/theories/Init/Notations.v @@ -71,6 +71,8 @@ Reserved Notation "{ x : A | P & Q }" (at level 0, x at level 99). Reserved Notation "{ x : A & P }" (at level 0, x at level 99). Reserved Notation "{ x : A & P & Q }" (at level 0, x at level 99). +Reserved Notation "[ x ]" (at level 0). + Delimit Scope type_scope with type. Delimit Scope core_scope with core. diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v index d822a45c50..602b119007 100644 --- a/theories/Init/Tactics.v +++ b/theories/Init/Tactics.v @@ -152,3 +152,6 @@ match goal with | _ => solve [trivial | reflexivity | symmetry; trivial | discriminate | split] | _ => fail 1 "Cannot solve this goal" end. + +(** A tactic to document or check what is proved at some point of a script *) +Ltac now_show c := change c. |