diff options
| author | herbelin | 2002-12-02 19:05:37 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-02 19:05:37 +0000 |
| commit | 122a20173fd6e4427bcada7e2f9ae232fc77e0cb (patch) | |
| tree | 118029a738adafe19a8c203bbc1ed1fc594be370 | |
| parent | 4fa8ff4c0463a85382351910522daf75bcdd6795 (diff) | |
MAJ sur MAJ
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3356 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/success/CasesDep.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/success/CasesDep.v b/test-suite/success/CasesDep.v index 3313827f1c..8d0dc0f5ca 100644 --- a/test-suite/success/CasesDep.v +++ b/test-suite/success/CasesDep.v @@ -76,7 +76,7 @@ Grammar constr constr1 := Definition equal := [A:Setoid] <[s:Setoid](Relation |s|)>let (S,R,e)=A in R. -Grammar constr constr1 := NONA +Grammar constr constr1 := equal [ constr0($c) "=" "%" "S" constr0($c2) ] -> [ (equal ? $c $c2) ]. @@ -111,7 +111,7 @@ End Maps. Notation ap := (explicit_ap ? ?). -Grammar constr constr8 := RIGHTA +Grammar constr constr8 := map_setoid [ constr7($c1) "=>" constr8($c2) ] -> [ (Map_setoid $c1 $c2) ]. |