fact: Definition Sprod A B := Zo (((domain A) \times (domain B)) \times (range A \times (range B))) (fun z => inc (J (P (P z)) (P (Q z))) A /\ inc (J (Q (P z)) (Q (Q z))) B).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)