src/Pure/Isar/calculation.ML
changeset 12311 ce5f9e61c037
parent 12123 739eba13e2cd
child 12379 c74d160ff0c5
equal deleted inserted replaced
12310:26407b087c8e 12311:ce5f9e61c037
    38   val name = "Isar/calculation";
    38   val name = "Isar/calculation";
    39   type T = thm NetRules.T
    39   type T = thm NetRules.T
    40 
    40 
    41   val empty = NetRules.elim;
    41   val empty = NetRules.elim;
    42   val copy = I;
    42   val copy = I;
    43   val finish = I;
       
    44   val prep_ext = I;
    43   val prep_ext = I;
    45   val merge = NetRules.merge;
    44   val merge = NetRules.merge;
    46   val print = print_rules Display.pretty_thm_sg;
    45   val print = print_rules Display.pretty_thm_sg;
    47 end;
    46 end;
    48 
    47