proposition: Lemma lgs_avatar_image : forall f g u, is_leq_gen_scale f u -> is_leq_gen_scale g (Image.create u (avatar f g)).
proof: Proof. ir. rw avatar_image. apply leq_gen_mapping_range with f. ap lgmap_lgmapping. am. am. Qed.
imports: Arith order