Add_copy_for_last (p.zelus.2.1.doc.zelus.zlcompilerlibs.Add_copy_for

val eq_last : Ident.t -> Ident.t -> Deftypes.typ -> Zelus.eq

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

val env : 
  Ident.t Ident.Env.t ->
  Deftypes.tentry Ident.Env.t ->
  Deftypes.tentry Ident.Env.t * Ident.t Ident.Env.t * Zelus.eq list

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

val present_handlers : 
  (Zelus.scondpat -> Zelus.scondpat) ->
  ('a -> 'b) ->
  'a Zelus.present_handler list ->
  'b Zelus.present_handler list

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

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

Translation of equations.

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

val block_eq_list_with_substitution : 
  Ident.t Ident.Env.t ->
  Zelus.eq list Zelus.block ->
  Ident.t Ident.Env.t * Zelus.eq list Zelus.block

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

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

val present_handler_block_eq_list : 
  Ident.t Ident.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 : 
  Ident.t Ident.Env.t ->
  Zelus.exp Zelus.match_handler list ->
  Zelus.exp Zelus.match_handler list

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

val local : 
  Ident.t Ident.Env.t ->
  Zelus.local ->
  Zelus.local * Ident.t Ident.Env.t

val locals : 
  Ident.t Ident.Env.t ->
  Zelus.local list ->
  Zelus.local list * Ident.t Ident.Env.t

val scondpat : Ident.t Ident.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