fact: Structure try_form A B i (s1 : A -> spec B) (s2 : exn -> spec B) r (p : Prop) := TryForm {try_pivot :> spec A; _ : p -> verify (try_s try_pivot s1 s2) i r}.
imports: mathcomp(ssreflect ssrbool ssrfun) LemmaOverloading(heaps rels stmod stsep stlog)