proposition: Lemma EFGroup_order: (g_order EFGroup <= 2 * Z_of_nat (length LK) + 1)%Z.
proof: Proof. unfold g_order; simpl s. change (Zpos 2) with (Z_of_nat 2). change (Zpos 1) with (Z_of_nat 1). rewrite <- inj_mult; rewrite <- inj_plus. apply inj_le; apply FELLK_length. Qed.
imports: Arith_base Field_tac Ring Eqdep_dec FGroup List UList ZArith