Module Loop.Casify

module Typ = Runtime.Type.Typ
val merge_if_case : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Ol.Ast.exp -> Ol.Ast.block -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.case list option
val merge_if_case' : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.case list -> Ol.Ast.guard -> Ol.Ast.block -> Ol.Ast.case list option
val merge_case_if : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.exp -> Ol.Ast.block -> Ol.Ast.case list option
val merge_case_if' : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Ol.Ast.exp -> Ol.Ast.case list -> Ol.Ast.case list -> bool -> Ol.Ast.guard -> Ol.Ast.block -> Ol.Ast.case list option
val merge_case_case : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.exp -> Ol.Ast.case list -> Ol.Ast.case list option
val casify_case_case : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Util.Source.region -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.exp -> Ol.Ast.case list -> Ol.Ast.instr option
val casify_from_case : Runtime.Dynamic_Sl.Envs.TDEnv.t -> Util.Source.region -> Ol.Ast.exp -> Ol.Ast.case list -> bool -> Ol.Ast.block -> Ol.Ast.block option