annotate tests/openRedef.ur @ 1714:d6c45026240d

Do a lot more type simplification for error messages
author Adam Chlipala <adam@chlipala.net>
date Mon, 16 Apr 2012 09:46:42 -0400
parents cccf8bf64b30
children
rev   line source
adam@1527 1 structure M = struct
adam@1527 2 con num = int
adam@1527 3 val zero = 0
adam@1527 4 end
adam@1527 5
adam@1527 6 structure N = struct
adam@1527 7 open M
adam@1527 8 con num = num * num
adam@1527 9 val zero = zero + 1
adam@1527 10 end
adam@1527 11
adam@1527 12 structure O = struct
adam@1527 13 open N
adam@1527 14
adam@1527 15 val one : num = (zero + 1, zero)
adam@1527 16 end