fact: Fixpoint SecureBy (X:Type) (A : X->X->Prop) (p : WFT X) : Prop := match p with | ZT _ => forall x y, A x y | SUP p => forall x, SecureBy (fun y z => A y z \/ A x y) (p x) end.
imports: Coq(Arith Relations Lia) Coq(FunctionalExtensionality)