Shared (p.zelus.2.2.doc.zelus.zlcompilerlibs.Shared)

val shared : Zident.S.t -> Deftypes.tentry Zident.Env.t -> Zident.S.t

val remove_is_copy : 
  ('a * 'b * 'c) Zident.Env.t ->
  ('a * bool * 'c) Zident.Env.t

val add_equations_for_copies : 
  Zelus.eq list ->
  (Zident.t * bool * Deftypes.typ) Zident.Env.t ->
  Zelus.eq list

val add_locals_for_copies : 
  Zelus.vardec list ->
  Deftypes.tentry Zident.Env.t ->
  (Zident.Env.key * 'a * Deftypes.typ) Zident.Env.t ->
  Zelus.vardec list * Deftypes.tentry Zident.Env.t

val pattern : 
  Zident.S.t ->
  (Zident.t * bool * Deftypes.typ) Zident.Env.t ->
  Zelus.pattern ->
  Zelus.pattern * (Zident.t * bool * Deftypes.typ) Zident.Env.t

val equation : 
  Zident.S.t ->
  (Zident.Env.key * bool * Deftypes.typ) Zident.Env.t ->
  Zelus.eq ->
  Zelus.eq * (Zident.Env.key * bool * Deftypes.typ) Zident.Env.t

val equation_list : 
  Zident.S.t ->
  (Zident.Env.key * bool * Deftypes.typ) Zident.Env.t ->
  Zelus.eq list ->
  Zelus.eq list * (Zident.Env.key * bool * Deftypes.typ) Zident.Env.t

val local : Zelus.local -> Zelus.local

val block : 
  Zident.S.t ->
  Zelus.eq list Zelus.block ->
  Zelus.eq list Zelus.block

val exp : Zelus.exp -> Zelus.exp

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