| 1 | #pragma once
 | 
|---|
| 2 | 
 | 
|---|
| 3 | forall(otype R, otype S) struct pair {
 | 
|---|
| 4 |         R first;
 | 
|---|
| 5 |         S second;
 | 
|---|
| 6 | };
 | 
|---|
| 7 | 
 | 
|---|
| 8 | forall(otype R, otype S 
 | 
|---|
| 9 |         | { int ?==?(R, R); int ?<?(R, R); int ?<?(S, S); })
 | 
|---|
| 10 | int ?<?(pair(R, S) p, pair(R, S) q);
 | 
|---|
| 11 | 
 | 
|---|
| 12 | forall(otype R, otype S 
 | 
|---|
| 13 |         | { int ?==?(R, R); int ?<?(R, R); int ?<=?(S, S); })
 | 
|---|
| 14 | int ?<=?(pair(R, S) p, pair(R, S) q);
 | 
|---|
| 15 | 
 | 
|---|
| 16 | forall(otype R, otype S | { int ?==?(R, R); int ?==?(S, S); })
 | 
|---|
| 17 | int ?==?(pair(R, S) p, pair(R, S) q);
 | 
|---|
| 18 | 
 | 
|---|
| 19 | forall(otype R, otype S | { int ?!=?(R, R); int ?!=?(S, S); })
 | 
|---|
| 20 | int ?!=?(pair(R, S) p, pair(R, S) q);
 | 
|---|
| 21 | 
 | 
|---|
| 22 | forall(otype R, otype S 
 | 
|---|
| 23 |         | { int ?==?(R, R); int ?>?(R, R); int ?>?(S, S); })
 | 
|---|
| 24 | int ?>?(pair(R, S) p, pair(R, S) q);
 | 
|---|
| 25 | 
 | 
|---|
| 26 | forall(otype R, otype S 
 | 
|---|
| 27 |         | { int ?==?(R, R); int ?>?(R, R); int ?>=?(S, S); })
 | 
|---|
| 28 | int ?>=?(pair(R, S) p, pair(R, S) q);
 | 
|---|