diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-28 13:17:46 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-02-28 13:17:46 +0000 |
commit | f2132de33ab816360f60ec50ba124a685cdb942a (patch) | |
tree | 8a62e4b4c55ad452b5549777b34046c258096c90 /test-suite/success/implicit.v | |
parent | 9f6c279989a32716ef61d943d1b48860f4fc1e86 (diff) |
Exemple de Frederic
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5399 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/implicit.v')
-rw-r--r-- | test-suite/success/implicit.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/implicit.v b/test-suite/success/implicit.v index 00230bfc4..9f2837e37 100644 --- a/test-suite/success/implicit.v +++ b/test-suite/success/implicit.v @@ -17,3 +17,13 @@ Record stack : Type := {type : Set; elt : type; Check (type:Set; elt:type; empty:(type->bool))(empty elt)=true->stack. End Spec. + +(* Example submitted by Frédéric (interesting in v8 syntax) *) + +Parameter f : nat -> nat * nat. +Notation lhs := fst. +Check [x](lhs ? ? (f x)). +Check [x](!lhs ? ? (f x)). +Notation "'rhs'" := snd. +Check [x](rhs ? ? (f x)). +Check [x](!rhs ? ? (f x)). |