summaryrefslogtreecommitdiff
path: root/Test/test20/TypeSynonyms1.bpl
blob: 45b7e46d8012148be5e243c1161255226010f645 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47



type C a b;
type C2 b a = C a b;


// ordering of map type parameters
function g0(<a,b>[C2 a b]int) returns (int);
function g1(<a,b>[C2 b a]int) returns (int);
function g2(<a,b>[C a b]int) returns (int);
function g3(<a,b>[C b a]int) returns (int);

const c0 : <a,b>[C2 a b]int;
const c1 : <a,b>[C2 b a]int;
const c2 : <a,b>[C a b]int;
const c3 : <a,b>[C b a]int;

axiom g0(c0) == 0;
axiom g1(c0) == 0;
axiom g2(c0) == 0;
axiom g3(c0) == 0;
axiom g0(c1) == 0;
axiom g1(c1) == 0;
axiom g2(c1) == 0;
axiom g3(c1) == 0;
axiom g0(c2) == 0;
axiom g1(c2) == 0;
axiom g2(c2) == 0;
axiom g3(c2) == 0;
axiom g0(c3) == 0;
axiom g1(c3) == 0;
axiom g2(c3) == 0;
axiom g3(c3) == 0;


type nested a = <b>[b, b, a]int;
type nested2 = nested (nested int);


function h(nested2) returns (bool);
const e : <b>[b, b, <b2>[b2, b2, int]int]int;
axiom h(e);

const e2 : <b>[b, b, <b2>[b2, b, int]int]int;      // wrong binding
axiom h(e2);