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

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

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

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

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

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

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

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

val local : Zelus.local -> Zelus.local

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