From 122a20173fd6e4427bcada7e2f9ae232fc77e0cb Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 2 Dec 2002 19:05:37 +0000 Subject: MAJ sur MAJ git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3356 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/success/CasesDep.v | 4 ++-- 1 file 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) ]. -- cgit v1.2.3