open Ast_typed

let merge e1 e2 = 
  let e1 = List.Ne.to_list e1 in
  let e2 = List.Ne.to_list e2 in
  List.Ne.of_list @@ e1 @ e2
 

let default = Environment.full_empty

let default = merge default Bool.environment