fact: CoFixpoint quadratic (xi:Tensor) (alpha beta:Reals) (H :productive_q xi alpha beta) : Reals := Cons (fstT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta H))) (quadratic (fstT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta H)))) (fstT (sndT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta H))))) (sndT (sndT (sndT (modulus_q xi alpha beta (productive_q_emits_q xi alpha beta H))))) (modulus_q_productive_q xi alpha beta (productive_q_emits_q xi alpha beta H) H)).
imports: digits