equal
deleted
inserted
replaced
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; |