proposition: Lemma prop_inject: prop.
proof: Proof. Proof prop_intro prop. Inductive ex_Prop (P : Prop -> Prop) : Prop := exP_intro : forall X : Prop, P X -> ex_Prop P. Lemma ex_Prop_inhabitant : ex_Prop (fun P => P -> P). Proof. now exists (ex_Prop (fun P => P -> P)). Qed.
imports: Arith Vector List Extraction ZArith Compare_dec ZArith List