}.
notation "a break # b" non associative with precedence 50 for @{ 'apart $a $b}.
-interpretation "axiomatic apartness" 'apart x y =
+interpretation "apartness" 'apart x y =
(cic:/matita/excedence/ap_apart.con _ x y).
definition strong_ext ≝ λA:apartness.λop:A→A.∀x,y. op x # op y → x # y.
(cic:/matita/sequence/tends0.con _ s).
*)
-axiom core1: ∀G:todgroup.∀e:G.0<e → e/3 + e/2 + e/2 < e.
-
alias symbol "leq" = "ordered sets less or equal than".
alias symbol "and" = "constructive and".
alias symbol "exists" = "constructive exists (Type)".