proposition: Lemma quadratic_unfolded:forall xi alpha beta p, quadratic xi alpha beta p = Cons (fstT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta p))) (quadratic (fstT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta p)))) (fstT (sndT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta p))))) (sndT (sndT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta p))))) (modulus_q_productive_q xi alpha beta (productive_q_emits_q xi alpha beta p) p)).
proof: Proof. intros; rewrite (unfold_Stream (quadratic xi alpha beta p)); reflexivity. Defined.
imports: digits