fact: Definition orth_axiom (U : pcm) (orth : rel U) := [/\ orth Unit Unit, forall x y, orth x y = orth y x, forall x y, orth x y -> valid (x \+ y), forall x y, orth x y -> orth x Unit & forall x y z, orth x y -> orth (x \+ y) z -> orth y z && orth x (y \+ z)].
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)