proposition: Lemma lgmap_unique : forall f g r, is_leq_gen_mapping f g r -> lgmap f g (domain r) = r.
proof: Proof. ir. apply leq_gen_mapping_unique with f g. ap lgmap_lgmapping. apply leq_gen_mapping_domain with g. am. am. rw lgmap_domain; tv. apply leq_gen_mapping_domain with g. am. Qed.
imports: Arith order