equal
deleted
inserted
replaced
498 val definition = s' ^ " := " ^ of_term t1 |
498 val definition = s' ^ " := " ^ of_term t1 |
499 val usage = of_term tm |
499 val usage = of_term tm |
500 in |
500 in |
501 s ^ "(" ^ declaration ^ ", " ^ definition ^ ", " ^ usage ^ ")" |
501 s ^ "(" ^ declaration ^ ", " ^ definition ^ ", " ^ usage ^ ")" |
502 end |
502 end |
|
503 | _ => app ()) |
|
504 else if s = tptp_ite then |
|
505 (case ts of |
|
506 [t1, t2, t3] => s ^ "(" ^ of_term t1 ^ ", " ^ of_term t2 ^ ", " ^ of_term t3 ^ ")" |
503 | _ => app ()) |
507 | _ => app ()) |
504 else if s = tptp_choice then |
508 else if s = tptp_choice then |
505 (case ts of |
509 (case ts of |
506 [AAbs (((s', ty), tm), args)] => |
510 [AAbs (((s', ty), tm), args)] => |
507 (* There is code in "ATP_Problem_Generate" to ensure that "Eps" is always applied to an |
511 (* There is code in "ATP_Problem_Generate" to ensure that "Eps" is always applied to an |