fact: Definition to_syn (v:ext_Z*ext_Z) := match v with (minfty,pinfty) => (true_cst, nil) | (minfty, cZ u) => (ge_cst, u::nil) | (cZ l, pinfty) => (le_cst, l::nil) | (cZ l, cZ u) => (between_cst, l::u::nil) | _ => (false_cst, nil) end.
imports: syntax little denot Bool List String ZArith axiom