src/Pure/Isar/calculation.ML
changeset 18708 4b3dadb4fe33
parent 18678 dd0c569fa43d
child 18728 6790126ab5f6
     1.1 --- a/src/Pure/Isar/calculation.ML	Thu Jan 19 15:45:10 2006 +0100
     1.2 +++ b/src/Pure/Isar/calculation.ML	Thu Jan 19 21:22:08 2006 +0100
     1.3 @@ -46,7 +46,7 @@
     1.4      end;
     1.5  );
     1.6  
     1.7 -val _ = Context.add_setup [CalculationData.init];
     1.8 +val _ = Context.add_setup CalculationData.init;
     1.9  val print_rules = CalculationData.print;
    1.10  
    1.11  
    1.12 @@ -97,13 +97,13 @@
    1.13  val sym_att = Attrib.add_del_args sym_add sym_del;
    1.14  
    1.15  val _ = Context.add_setup
    1.16 - [Attrib.add_attributes
    1.17 + (Attrib.add_attributes
    1.18     [("trans", Attrib.common trans_att, "declaration of transitivity rule"),
    1.19      ("sym", Attrib.common sym_att, "declaration of symmetry rule"),
    1.20 -    ("symmetric", Attrib.common (Attrib.no_args symmetric), "resolution with symmetry rule")],
    1.21 -  snd o PureThy.add_thms
    1.22 +    ("symmetric", Attrib.common (Attrib.no_args symmetric), "resolution with symmetry rule")] #>
    1.23 +  PureThy.add_thms
    1.24     [(("", transitive_thm), [Attrib.theory trans_add]),
    1.25 -    (("", symmetric_thm), [Attrib.theory sym_add])]];
    1.26 +    (("", symmetric_thm), [Attrib.theory sym_add])] #> snd);
    1.27  
    1.28  
    1.29