Lemma sepcon_HOcontractive {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{AG: ageable A}{XA: Age_alg A}: forall X (P Q: (X -> pred A) -> (X -> pred A)), HOcontractive P -> HOcontractive Q -> HOcontractive (fun R x => P R x * Q R x).