Env (cir_builder.Cir

val lookup_named_field_in_map : 
  Cobol_ptree.qualname Cobol_ptree.with_loc ->
  'a Cir_types.FIELDS_MAP.resolver_map ->
  ('a, Types.error Cir_builder.Types.NEL.t) Stdlib.result

val lookup_named_field : 
  Cobol_ptree.qualname Cobol_ptree.with_loc ->
  ('a, 'b, 'c) Types.env ->
  ('a Cir_types.field_access, Types.error Cir_builder.Types.NEL.t)
    Stdlib.result