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