comparison src/urweb.grm @ 1864:1aa9629e3a4c

Allow [where con] to descend within submodule structure; open submodule constraints while checking later signature items
author Adam Chlipala <adam@chlipala.net>
date Mon, 19 Aug 2013 12:25:32 -0400
parents 146ec8e90063
children d6b0ee53dc93
comparison
equal deleted inserted replaced
1863:32784d27b5bc 1864:1aa9629e3a4c
800 | [x] => SgnVar x 800 | [x] => SgnVar x
801 | m :: ms => SgnProj (m, 801 | m :: ms => SgnProj (m,
802 List.take (ms, length ms - 1), 802 List.take (ms, length ms - 1),
803 List.nth (ms, length ms - 1)), 803 List.nth (ms, length ms - 1)),
804 s (mpathleft, mpathright)) 804 s (mpathleft, mpathright))
805 | sgntm WHERE CON SYMBOL EQ cexp (SgnWhere (sgntm, SYMBOL, cexp), s (sgntmleft, cexpright)) 805 | sgntm WHERE CON path EQ cexp (SgnWhere (sgntm, #1 path, #2 path, cexp), s (sgntmleft, cexpright))
806 | sgntm WHERE LTYPE SYMBOL EQ cexp(SgnWhere (sgntm, SYMBOL, cexp), s (sgntmleft, cexpright)) 806 | sgntm WHERE LTYPE path EQ cexp (SgnWhere (sgntm, #1 path, #2 path, cexp), s (sgntmleft, cexpright))
807 | LPAREN sgn RPAREN (sgn) 807 | LPAREN sgn RPAREN (sgn)
808 808
809 cexpO : (NONE) 809 cexpO : (NONE)
810 | EQ cexp (SOME cexp) 810 | EQ cexp (SOME cexp)
811 811