Horizonval gather_horizons :
Deftypes.tentry Zident.Env.t ->
Zident.Env.key list * Deftypes.tentry Zident.Env.tval equation_list_with_horizon :
Zident.t option ->
Deftypes.tentry Zident.Env.t ->
Zelus.eq list ->
Deftypes.tentry Zident.Env.t * Zelus.eq list * Zident.t optionval block :
Zident.t option ->
Zelus.eq list Zelus.block ->
Zelus.eq list Zelus.block * Zident.t optionTranslate a block
val 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