193 prem_role = Conjecture, |
193 prem_role = Conjecture, |
194 generate_isabelle_info = false, |
194 generate_isabelle_info = false, |
195 good_slices = |
195 good_slices = |
196 let |
196 let |
197 val (format, type_enc, lam_trans, extra_options) = |
197 val (format, type_enc, lam_trans, extra_options) = |
198 if string_ord (getenv "E_VERSION", "2.7") <> LESS then |
198 if string_ord (getenv "E_VERSION", "3.0") <> LESS then |
199 (* '$ite' support appears to be buggy *) |
199 (* '$ite' support appears to be unsound. *) |
200 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Without_Choice), "mono_native_higher", keep_lamsN, "--auto-schedule=4 --serialize-schedule=true --demod-under-lambda=true") |
200 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Without_Choice), "mono_native_higher", keep_lamsN, "--auto-schedule=4 --serialize-schedule=true --demod-under-lambda=true") |
201 else if string_ord (getenv "E_VERSION", "2.6") <> LESS then |
201 else if string_ord (getenv "E_VERSION", "2.6") <> LESS then |
202 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Without_Choice), "mono_native_higher", keep_lamsN, "--auto-schedule") |
202 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Without_Choice), "mono_native_higher", keep_lamsN, "--auto-schedule") |
203 else |
203 else |
204 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Lambda_Free), "mono_native_higher", combsN, "--auto-schedule") |
204 (THF (Monomorphic, {with_ite = false, with_let = false}, THF_Lambda_Free), "mono_native_higher", combsN, "--auto-schedule") |