ap_cotransitive: cotransitive ? ap_apart
}.
-notation "a break # b" non associative with precedence 50 for @{ 'apart $a $b}.
+notation "hvbox(a break # b)" non associative with precedence 50 for @{ 'apart $a $b}.
interpretation "apartness" 'apart x y =
(cic:/matita/excess/ap_apart.con _ x y).
definition eq ≝ λA:apartness.λa,b:A. ¬ (a # b).
-notation "a break ≈ b" non associative with precedence 50 for @{ 'napart $a $b}.
+notation "hvbox(a break ≈ b)" non associative with precedence 50 for @{ 'napart $a $b}.
interpretation "alikeness" 'napart a b =
(cic:/matita/excess/eq.con _ a b).