Instance Disj_fpm {DA_B: Disj_alg B}: Disj_alg fpm.

(* Specifications: *)
Lemma fpm_gso: forall i j v rho,
i <> j -> lookup_fpm (insert_fpm j v rho) i =
lookup_fpm rho i.
Lemma empty_fpm_join : forall x,
@join _ Join_fpm empty_fpm x x.
Lemma insert_fpm_join : forall i v (x y z:fpm),
lookup_fpm y i = None ->
@join _ Join_fpm x y z ->
@join _ Join_fpm (insert_fpm i v x) y (insert_fpm i v z).