src/Pure/type.ML
changeset 12222 d1c276b45dbc
parent 11022 72a76580ed2f
child 12314 160013745a92
     1.1 --- a/src/Pure/type.ML	Fri Nov 16 15:24:09 2001 +0100
     1.2 +++ b/src/Pure/type.ML	Fri Nov 16 15:24:39 2001 +0100
     1.3 @@ -532,7 +532,10 @@
     1.4    let
     1.5      val TySg {classes, classrel, default, tycons, log_types, univ_witness, abbrs, arities} = tsig;
     1.6      val (classes', classrel') = extend_classes (classes,classrel, new_classes);
     1.7 -  in make_tsig (classes', classrel', default, tycons, log_types, univ_witness, abbrs, arities) end;
     1.8 +  in
     1.9 +    make_tsig (classes', classrel', default, tycons, log_types, univ_witness, abbrs, arities)
    1.10 +    |> rebuild_tsig
    1.11 +  end;
    1.12  
    1.13  
    1.14  (* ext_tsig_classrel *)