equal
deleted
inserted
replaced
125 check_rules ringN r_rules 2 andalso |
125 check_rules ringN r_rules 2 andalso |
126 check_ops fieldN f_ops 2 andalso |
126 check_ops fieldN f_ops 2 andalso |
127 check_rules fieldN f_rules 2 andalso |
127 check_rules fieldN f_rules 2 andalso |
128 check_rules idomN idom 2; |
128 check_rules idomN idom 2; |
129 |
129 |
130 val mk_meta = LocalDefs.meta_rewrite_rule ctxt; |
130 val mk_meta = Local_Defs.meta_rewrite_rule ctxt; |
131 val sr_rules' = map mk_meta sr_rules; |
131 val sr_rules' = map mk_meta sr_rules; |
132 val r_rules' = map mk_meta r_rules; |
132 val r_rules' = map mk_meta r_rules; |
133 val f_rules' = map mk_meta f_rules; |
133 val f_rules' = map mk_meta f_rules; |
134 |
134 |
135 fun rule i = nth sr_rules' (i - 1); |
135 fun rule i = nth sr_rules' (i - 1); |