| -- | |
| -- Copyright 2016, NICTA | |
| -- | |
| -- This software may be distributed and modified according to the terms of | |
| -- the GNU General Public License version 2. Note that NO WARRANTY is provided. | |
| -- See "LICENSE_GPLv2.txt" for details. | |
| -- | |
| -- @TAG(NICTA_GPL) | |
| -- | |
| f : all (a, b). (a, b) -> (a, b) | |
| f (x, y) = (x, y) | |
| g : all (b). ((), b) -> ((), b) | |
| g (x, y) = f[(), b] (x, y) | |
| h : ((), ()) -> ((), ()) | |
| h (x, y) = g[()] (x, y) |