equal
deleted
inserted
replaced
517 fun effective_atp_lambda_translation ctxt type_enc = |
517 fun effective_atp_lambda_translation ctxt type_enc = |
518 Config.get ctxt atp_lambda_translation |
518 Config.get ctxt atp_lambda_translation |
519 |> (fn trans => |
519 |> (fn trans => |
520 if trans = smartN then |
520 if trans = smartN then |
521 if is_type_enc_higher_order type_enc then lambdasN else combinatorsN |
521 if is_type_enc_higher_order type_enc then lambdasN else combinatorsN |
|
522 else if trans = lambdasN andalso |
|
523 not (is_type_enc_higher_order type_enc) then |
|
524 error ("Lambda translation method incompatible with \ |
|
525 \first-order encoding.") |
522 else |
526 else |
523 trans) |
527 trans) |
524 |
528 |
525 val metis_minimize_max_time = seconds 2.0 |
529 val metis_minimize_max_time = seconds 2.0 |
526 |
530 |