src/Pure/sign.ML
changeset 986 c978bb4e9a55
parent 963 7a78fda77104
child 1159 998a5c3451bf
equal deleted inserted replaced
985:2e50c5124ca3 986:c978bb4e9a55
   552                                                     [max_pri, 0], max_pri))]
   552                                                     [max_pri, 0], max_pri))]
   553   |> add_name "Pure";
   553   |> add_name "Pure";
   554 
   554 
   555 val cpure = proto_pure
   555 val cpure = proto_pure
   556   |> add_syntax
   556   |> add_syntax
   557    [("_applC",     "[('b => 'a), 'c] => logic",     Mixfix ("(1_ (1_))",
   557    [("_applC",     "[('b => 'a), 'c] => logic",     Mixfix ("_/ _",
   558                                                     [max_pri-1, max_pri],
   558                                                     [max_pri-1, max_pri],
   559                                                     max_pri-1)),
   559                                                     max_pri-1)),
   560     ("_applC",     "[('b => 'a), 'c] => aprop",     Mixfix ("(1_ (1_))",
   560     ("_applC",     "[('b => 'a), 'c] => aprop",     Mixfix ("_/ _",
   561                                                     [max_pri-1, max_pri],
   561                                                     [max_pri-1, max_pri],
   562                                                     max_pri-1))]
   562                                                     max_pri-1))]
   563   |> add_name "CPure";
   563   |> add_name "CPure";
   564 
   564 
   565 end;
   565 end;