Remove_last_in_patterns (p.zelus.2.2.doc.zelus.zlcompilerlibs.Remove_last_in

val eq_lx_last_m_m_x : 
  Zident.t ->
  Zident.t ->
  Zident.t ->
  Deftypes.typ ->
  Zelus.eq list ->
  Zelus.eq list

val add : 
  Zident.Env.key ->
  Deftypes.typ ->
  Deftypes.tsort ->
  (Deftypes.tentry Zident.Env.t
   * Deftypes.tentry Zident.Env.t
   * Zident.t Zident.Env.t
   * Zelus.eq list) ->
  Deftypes.tentry Zident.Env.t
  * Deftypes.tentry Zident.Env.t
  * Zident.t Zident.Env.t
  * Zelus.eq list

val valenv : 
  Zident.t Zident.Env.t ->
  Deftypes.tentry Zident.Env.t ->
  Deftypes.tentry Zident.Env.t
  * Deftypes.tentry Zident.Env.t
  * Zident.t Zident.Env.t
  * Zelus.eq list

val extend_block : 
  'a Zelus.block ->
  Deftypes.tentry Zident.Env.t ->
  Zelus.eq list ->
  'a Zelus.block

val present_handlers : 
  Zident.t Zident.Env.t ->
  (Zident.t Zident.Env.t -> Zelus.scondpat -> Zelus.scondpat) ->
  (Zident.t Zident.Env.t ->
    'a ->
    Deftypes.tentry Zident.Env.t ->
    Zelus.eq list ->
    'b) ->
  'a Zelus.present_handler list ->
  'b Zelus.present_handler list

val exp : Zident.t Zident.Env.t -> Zelus.exp -> Zelus.exp

val equation : Zident.t Zident.Env.t -> Zelus.eq -> Zelus.eq

Translation of equations.

val equation_list : Zident.t Zident.Env.t -> Zelus.eq list -> Zelus.eq list

val block_eq_list : 
  Zident.t Zident.Env.t ->
  Zelus.eq list Zelus.block ->
  Zelus.eq list Zelus.block

val present_handler_exp_list : 
  Zident.t Zident.Env.t ->
  Zelus.exp Zelus.present_handler list ->
  Zelus.exp Zelus.present_handler list

val present_handler_block_eq_list : 
  Zident.t Zident.Env.t ->
  Zelus.eq list Zelus.block Zelus.present_handler list ->
  Zelus.eq list Zelus.block Zelus.present_handler list

val match_handler_exp_list : 
  Zident.t Zident.Env.t ->
  Zelus.exp Zelus.match_handler list ->
  Zelus.exp Zelus.match_handler list

val match_handler_block_eq_list : 
  Zident.t Zident.Env.t ->
  Zelus.eq list Zelus.block Zelus.match_handler list ->
  Zelus.eq list Zelus.block Zelus.match_handler list

val local : Zident.t Zident.Env.t -> Zelus.local -> Zelus.local

val locals : Zident.t Zident.Env.t -> Zelus.local list -> Zelus.local list

val scondpat : Zident.t Zident.Env.t -> Zelus.scondpat -> Zelus.scondpat

val implementation : 
  Zelus.implementation_desc Zelus.localized ->
  Zelus.implementation_desc Zelus.localized

val implementation_list : 
  Zelus.implementation_desc Zelus.localized list ->
  Zelus.implementation_desc Zelus.localized list