let prelude m = match m with | M0 -> Model0.why_prelude | M1 -> Model1.why_prelude | M2 -> Model2.why_prelude | M3 -> Lowlevel_model.why_prelude