File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -53,8 +53,8 @@ rule Sub_typ/variant:
5353 E |- t_1 <: t_2
5454 -- Expand_typ: E |- t_1 => VARIANT tc_1*
5555 -- Expand_typ: E |- t_2 => VARIANT tc_2*
56- -- (if (a `: t_1a `- `{q*} pr*) = tc_1)*
57- -- (if (a `: t_2a `- `{q*} pr*) <- tc_2*)*
56+ -- (if (m `: t_1a `- `{q*} pr*) = tc_1)*
57+ -- (if (m `: t_2a `- `{q*} pr*) <- tc_2*)*
5858 -- (Sub_typ: E |- t_1a <: t_2a)*
5959
6060rule Sub_typ/iter:
@@ -460,7 +460,7 @@ rule Ok_sym/RANGE:
460460rule Ok_sym/ITER:
461461 E |- ITER g it (x `<- e)* : ITER t it'
462462 -- Ok_iter: E |- it : it' -| E'
463- -- (Ok_exp: E |- e' : ITER t' it')*
463+ -- (Ok_exp: E |- e : ITER t' it')*
464464 -- Ok_sym: E ++ {EXP (x, t')*} ++ E' |- g : t
465465 -- Ok_typ: E |- t : OK
466466
@@ -502,8 +502,8 @@ rule Ok_prem/LET:
502502rule Ok_prem/ITER:
503503 E |- ITER pr it (x `<- e)* : OK
504504 -- Ok_iter: E |- it : it' -| E'
505- -- (Ok_exp: E |- e' : ITER t' it')*
506- -- Ok_prem: E ++ {EXP (x, t_x )*} ++ E' |- pr : OK
505+ -- (Ok_exp: E |- e : ITER t' it')*
506+ -- Ok_prem: E ++ {EXP (x, t' )*} ++ E' |- pr : OK
507507
508508
509509rule Ok_prems:
You can’t perform that action at this time.
0 commit comments