diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-21 10:56:36 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-21 10:56:36 +0000 |
commit | 3fc487a21483c1cccbe03b9b9712793a2684330b (patch) | |
tree | fd5f7824e7efa42c8bf9d190fde24814264e8a29 /test-suite/complexity | |
parent | 56d407009e4a59ee4e0f5cf9aaed0b1868a7e146 (diff) |
Last test-suite not in Symmetric Patterns syntax
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16132 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/complexity')
-rw-r--r-- | test-suite/complexity/injection.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/complexity/injection.v b/test-suite/complexity/injection.v index 335996c27..08f489d75 100644 --- a/test-suite/complexity/injection.v +++ b/test-suite/complexity/injection.v @@ -72,14 +72,14 @@ Definition own_join (a b c: own) : Prop := match a , b , c with | NO , _ , _ => b=c | _ , NO , _ => a=c - | VAL' sa _ , VAL' sb _, VAL' sc _ => Share.j.(join) sa sb sc - | LK sa pa ha fa, LK sb pb hb fb, LK sc pc hc fc => + | @VAL' sa _, @VAL' sb _, @VAL' sc _ => Share.j.(join) sa sb sc + | @LK sa pa ha fa, @LK sb pb hb fb, @LK sc pc hc fc => Share.j.(join) sa sb sc /\ Share.j.(join) ha hb hc /\ fa=fc /\ fb=fc - | CT sa pa , CT sb pb, CT sc pc => Share.j.(join) sa sb sc - | FUN sa pa fa, FUN sb pb fb, FUN sc pc fc => + | @CT sa pa , @CT sb pb, @CT sc pc => Share.j.(join) sa sb sc + | @FUN sa pa fa, @FUN sb pb fb, @FUN sc pc fc => Share.j.(join) sa sb sc /\ fa=fc /\ fb=fc | _ , _ , _ => False end. |