Match2conditionval empty : returnval with_env : Deftypes.tentry Zident.Env.t -> return -> returnval filter : return -> Zelus.pattern -> Zelus.exp -> Zelus.exp * returnval filter_list :
return ->
Zelus.pattern list ->
Zelus.exp list ->
Zelus.exp * returnval is_a_case_statement : 'a Zelus.match_handler list -> boolIn case a pattern matching is "simple", that is,
val match_into_condition :
bool ref ->
return ->
Zelus.exp ->
Zelus.eq list Zelus.block Zelus.match_handler list ->
Zelus.eq * returnTranslate a pattern matching construct into a conditional
val block : Zelus.eq list Zelus.block -> Zelus.eq list Zelus.blockval local : Zelus.local -> Zelus.localval implementation :
Zelus.implementation_desc Zelus.localized ->
Zelus.implementation_desc Zelus.localizedval implementation_list :
Zelus.implementation_desc Zelus.localized list ->
Zelus.implementation_desc Zelus.localized list