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

val find : Ident.Env.key -> 'a Ident.Env.t -> 'a

val exp_of_name : Ident.Env.key -> ('a * 'b) Ident.Env.t -> 'b

val pat_of_name : Ident.Env.key -> ('a * 'b) Ident.Env.t -> 'a

val name_of_name : Ident.Env.key -> (Zelus.pattern * 'a) Ident.Env.t -> Ident.t

val build : 
  Deftypes.tentry Ident.Env.t ->
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  (Zelus.pattern * Zelus.exp) Ident.Env.t * Deftypes.tentry Ident.Env.t

val matching : 
  (Zelus.pattern -> Zelus.exp -> 'a) ->
  'a list ->
  Zelus.pattern ->
  Zelus.exp ->
  'a list

val matching_list : 
  (Zelus.pattern -> Zelus.exp -> 'a) ->
  'a list ->
  Zelus.pattern list ->
  Zelus.exp list ->
  'a list

val expression : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.exp ->
  Zelus.exp

expressions

val local : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.local ->
  (Zelus.pattern * Zelus.exp) Ident.Env.t * Zelus.local

Local declarations

val pattern : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.pattern ->
  Zelus.pattern

val equation : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.eq list ->
  Zelus.eq ->
  Zelus.eq list

val equation_list : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.eq list ->
  Zelus.eq list

val handler : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.eq list Zelus.block Zelus.match_handler ->
  Zelus.eq list Zelus.block Zelus.match_handler

val block : 
  (Zelus.pattern * Zelus.exp) Ident.Env.t ->
  Zelus.eq list Zelus.block ->
  Zelus.eq list Zelus.block

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