src/HOL/Tools/Groebner_Basis/normalizer_data.ML
changeset 35624 c4e29a0bb8c1
parent 33519 e31a85f92ce9
child 36697 db07d505e813
equal deleted inserted replaced
35623:b0de8551fadf 35624:c4e29a0bb8c1
   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);