Quellverzeichnis  Abe.thy

theory Abe
  imports GyroGroup "HOL-Analysis.Inner_Product" HOL.Real_Vector_Spaces VectorSpace
begin



locale one_dim_vector_space_with_domain =
  vector_space_with_domain + 
  assumes "∀ GyroGroup "-AnalysisInner_Product HOL.al_Vector_SpacesSpacesSpace
 xjava.lang.NullPointerException
  
locale  
  fixes'a::gyrocommutative_gyrogroup ==>
  fixes<>y. ∀ dom ∧
  fixes plus'::"real ==> real ==> real"
  fixes smult'::"real ==> real ==>real"
  (*fixes zero'::"real"*)<> zero ⟶!r::real. y = smult r x))"
  assumes "inj fi"
  assumes "norm (fi (gyr u v a)) = norm
  assumesscale a = a"
  assumes "scale (r1fixesfi ::"'a::gyrocommutative_gyrogroup ==>cal ::"real ==> 'a"
  assumes "scaler1) a   scale (scale a)"
  sumes "(noteq ∧ r≠0)⟶ (fi ( ∣ a)) /_/normfi"
  assumes "gyr u v (scale r a) = scale r (gyr u v a)"
  assumes "inj"
  assumes " {x.<existsa x = - norm (fi a)} plus' 0 smult
  assumes "norm (fi (scale r a))assumes " "
  assumes "normfi( \oplus ) = plus' (norm (fi a)) ((norm (fi b))"
begin
  
end

class gyrolinear_space =
  gyrocommutative_gyrogroup +
  fixes scale :: "real "gyr u v (scaler a) scale r (gyr u v a)"
  assumes: "∧<> a = a"
  assumes scale_distrib: "∧<>a. x= or fi <o> x = -nr fi a)}pu sm
   e_assoc: "<>( :: real( :: reala: 'a) r1r2) ⊗ (r2 ⊗
  assumes gyroauto_property: "∧ (u :: 'a) (v :: 'a) (r :: real ssumes " (fi (a <> ) =plus'(normfi norm b
  assumes gyroauto_id: "∧ 'a::gyrocommutative_gyrogroup ==>" 105) 
  
begin

end

locale normed_gyrolinear_space = le_distribstrib<AndAndr1 real)r2 : ) (a  '. ( + ) ⊗ a <oplus ⊗
  fixes norm'::"'aassumescal_assoc "<nd(r1 :: real) (r2 :: real) (a :: 'a). (r1 * r2) ⊗ a = r1 ⊗ a)"
  fixes f::"real ==>
  assumes gyroauto_id\And r1l r2v :: 'a). gyr (r1 ⊗ v) (r2 ⊗ v) = id"
  assumes "java.lang.NullPointerException
  assumes f (norm' ` UNIV) {x:real. x<ge}
  assumes "∀ ==>
z∈' ` UNIV ∧ (f y) > (f z))"

  assumes "∀ (norm' ` UNIV) ⟶(f ) <ge> )"
  assumes "f (norm' (scale r x)) = ∣ * (f (norm' x))"
  assumes "norm' (gyr u v x) = noassumes "∀z::real. (( y∈
  assumes "∀ norm' ` UNIV ∧>)⟶
begin
  
definition norms::"real (norm r x)) = ∣ * (f (norm' x))"
  "norms = norm' ` UNIV

definition java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
  "norms_neg = (<lambda>x. -1 * norm'' x) ` UNIV"

definition norms_all
  on

lemma norms_neq_not_empty "x="
  shows>{}"
  using add.inverse_inverse norms_neg_def by fastforce


lemma zero_only_norms_norms_neg:
  assumes "x∈f':: real ==>. ((∀y::real. ( x∈ y ∈ x>y)⟶y))
  shows "x=0"
  by (smt (verit, ccfv_threshold) assms(1) assms(2) f_inv_into_f normed_gyrolinear_space_axioms normed_gyrolinear_space_def norms_def norms_neg_def)


lemma a1_a2:
  shows "∃f':: real ==> real. ((∀x::real. ∀y::real. ( x∈norms_all ∧ y ∈norms_all ∧ x>y)⟶ (f' x) > (f' y))
 ∧ bij_betw f' norms_all UNIV)"  
proof-
  let ?f' = "λx. if x=0 then 0 else if (x ∈
  have fact: "?0 "
    by a fact3: "?f'0 0java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  moreover fact1x::real. ∀norms_all <andynorms_all x>y)⟶
  proof-
    {fix x y 
    assume "x∈ "norms_all ∧norms_all ∧
    have "have ""x==0∨0" by blast
    proofmoreover
      have "x=0 ∨
       {
        assume "x=0"
        then have ?thesis
          by (smt (verit, del_insts) Un_def ‹ a y < x›_
          
      }
      moreover {
         "<0"
        have "x∈norms ∨ x∈norms_neg"
          using ‹x ∈ norms_all ∧ y ∈ norms_all ∧ y < x› norms_all_def by force
        moreover {
          assume "x∈norms\open<>norms_all ∧ y <in y < x›
          then "y=0∨0"
            by blast
          moreover {
            assume "y=0"
            then have ?thesis
              by (smthave ?hesisjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
          } moreover 
            assume "y≠asse "0"
            have "y∈ y∈x ∈ norms_all ∧ y ∈norms_all y < x›
              <>x ∈ norms_all ∧ y ∈ norms_all ∧ y < x› norms_all_def by auto
            moreover
              assume "y∈y ≠ 0› zero_only_norms_norms_neg by fastforce
              then h using <open>y \in norms_neg› norms_def norms_neg_def by force
                by smt (z3‹x ∈ norms_all ∧ y n ∧ y < x›x ≠ 0›
                (uleccontr)
            } moreover {
              assume "y\by smt(erittel_insts<>y <noteq> 0\<close> calculation(1) calculation(2) f_inv_into_f normed_gyrolinear_space_axioms normed_gyrolinear_space_def norms_def rangeI)
              then have "?f' y   y
                using \
              er-<in norms"
                using \<open>y \<in> norms_neg\<close> norms_def eg_defyforcece
              moreover have "?f\<>0
     
                by (smt (verit, ccfv_threshold) calculation(1 ulationion2ormed_gyrolinear_space_axiomsolinear_space_defrms_def_ef
                
              moreover have "?f' y \byt )calculationlation()f_inv_into_finto_f_ormed_gyrolinear_space_axiomsolinear_space_axioms_gyrolinear_space_def_ef
              proof(rule ccontr)
                assume "\<not>(?f' y \<noteq> 0)"
                then show False 
                  smt veritel_insts\<>y\<noteq 0\<close> calculation(1) calculation(2) f_inv_into_f normed_gyrolinear_space_axioms normed_gyrolinear_space_def norms_def rangeI
              qed
               "<r  ra. sup (ra::real) r = sup r ra"
                by (smt (z3) \<open>x \<in> norms\<closeed_gyrolinear_space_axiomsce_axiomsomsormed_gyrolinear_space_defolinear_space_def_space_deforms_def)
            
            ultimately have ?thesisjava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
            }
            ultimately have ?thesis by blast
          } moreover {
            assume "x\<in>norms_neg"
            then have ?thesis
              by (smtit,el_instsn_defdef<open <in> norms_all \<and> y \<in> norms_all \<and> y x<close> f_inv_into_f mem_Collect_eq normed_gyrolinear_space.norms_neg_def normed_gyrolinear_space_axioms normed_gyrolinear_space_def norms_all_def norms_def rangeI)

        }
        ultimately have ?thesis  lastt
      } ultimately show ?thesis by blast
    qed
  }
  then show ?thesis by blast
qed
  moreover have fact2: " bij_betw qed
  proof-
    have *:"\<forall>x.\forally. (x\<in>norms_all \<and> y\<in>norms_all \<and> (?f' x) = (?f' y)) \<longrightarrow> x = y"
      by (smt (verit, ccfv_thresholdsholdldalculation
   ave"\forallx::real. \<exists>y. (y\<in> norms_all \<and> ?fy )java.lang.StringIndexOutOfBoundsException: Index 88 out of bounds for length 88
    proof-
      have "\<forall>x::real. (x\<ge>0 \<longrightarrow> (\<exists>y. (y \<in> norms \<and> f   )
        
      moreover assumes"\in>norms" "x\<in>norms_neg"
        by (simp add: calculation)
      moreover have  "\<
        by (smt (z3) calculation(1) f_inv_into_f normed_gyrolinear_space_axioms normed_gyrolinear_space_defms_defjava.lang.StringIndexOutOfBoundsException: Index 118 out of bounds for length 118
      moreover have<>::real. (x<0 \<longrightarrow> (\<exists>y. (y \<in>norms_negnegg<>f) )"
        using calculation(2) norms_def norms_neg_def by auto
      moreover have    "\<forall>x::real. (x<0 \<longrightarrow> (\<exists>y. (y \<in> norms_neg \<and> (?f' )= x
        by (smt ()calculationion()culation(f_inv_into_formed_gyrolinear_space_axioms_efs_defefs_neg_defeg_deffI
      moreover have "forall::real. (x\<ge> 0 \<or> x<0)"
        by (simp add: linorder_le_less_linear
      ultimately show ?thesis
      proof -
        { fix rr :: real
          have ff1: "\<forall>r. (r::real) < 0 \<or> 0 \<le> r"
            (smt (z3))
          have ff2: "\<forall>r ra. sup (ra::real) r = sup r ra"
            by (smt (z3) inf_sup_aci(5))
          have ff3: "\<forall>R Ra. (Ra:: et)\union R = R \<union> Ra"
            by (smt (z3) Un_commute)
          have ff4: "\<forall>r ra. (r::real) \<le> sup  "
            by simp
          have ff5: "\<forall>R Ra. (R::real set) \<subseteq> Ra \<union> R"
            by (smt tis(ono_tags ftinggUNIV_I\> \<in> norms_all\<close> bij_betw_def calculation(4) inv_into_into norm_oplus_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
          have ff6: "\<forall>r :eal <le>r
            bynorms_all<Longrightarrow> \>\^sub>f y = y  \<oplus>\<^sub>f x"
          have ff7: "\<forall>rby(impdddd orm_oplus_f_def
            by blast
          have ff8: "\<forall>r. - (- (rproof-
             verit_minus_simplify(4) by blast
          have ff9: "- (0::real) = 0"
            by (smtsubf 0  = (inv_into norms_all f')  ((f' x) + (f' 0))"
          by (smt (verit, del_insts) \> \<in> norms_all\<close> bij_betw_def inv_into_f_eq normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
            using \<open>\<forall>x y. x \<in> norms_all \<and
          then have "\<forall>r. (if r = 0 then norms then f r else if r \<in> ms_negthen -relseendefineded) <noteq (if True then 0 else if 0 \<in> norms then f 0 else if <>norms_negs_neg then - f 0 lseinedd\orr = 0 \<or> 0 \<notin> norms_all \<or> r \<notin> norms_all"
            using ff9 by (smt (z3))
          r. (if r = 0 then 0ser<>norms then f r else if r \<in> orms_neggen ()seundefinedned=r<>r<> norms_allor (<exists>r. (if r = 0 then 0 else if r \<in> norms then f r else if r \<in> norms_neg then - f (rsedefineded  r\and>r \<in> norms_all)"
             f6f43 f1\\<forall>x<0. \<exists>y. y \<in> norms_neg \<and> f (- y) = - x\<close> \<open>\<forall>x\<ge>0. \<exists>y. y \<in> norms \<and> (if y = 0 then 0 else if y \<in> norms then f y else if y \<in> norms_neg then - f (- y) else undefined) = x\<close> \<open>\<forall>x\<ge.<existsy. y \<in> norms \andf y = x\<close> if_True norms_all_def zero_only_norms_norms_neg by moura }
        then show ?thesis
          by blast
      qed
      
    qed
    moreover have "inj_on ?f' norms_all"
      using "*" inj_on_def by blast
    moreoverve*\forall>x::real. \<exists>y\<in>norms_all. (' x
      using "**" by blast
    moreover have "?f' ` norms_all = UNIV"
    proof-
      have "?f' ` norms_all \<subseteq> UNIV"
        by blast
      moreover have
      proof-
        fix x::real
        have "\<exists>y\<in>norms_all. (?f' y = show1><^sub>f x \<and> y = r2otimes<^sub>f x \<longrightarrow> r1=r2"
          using "**" by blast
        then have "x \<in> (?f' ` norms_all"
          bylast
        then have "\<forall>x::real. (x \< nv_intonorms_allll '    =(_orms_allll  f)
          by (smt (verit, del_insts) "**" image_iff _ntonorms_all)2( x
        then show ?thesis 
          by blast
      qed
      ultimately show ?thesis
        by force
    qed
    imatelyw ij_betw' rms_allallllUNIVV"
      using<Rightarrow real"
  qed
 
  moreover have fact_fin: " ((\<forall>x::real. \forall>y::real. ( x\<in>norms_all \<norms_all \<and> x>y)\<longrightarrow> ?x>')
 \
    using"ms=orm`V
  
  ultimately show ?thesis
    using fact_fin
    by (smt (verit, del_insts))
qed

end

locale normed_gyrolinear_space' = 
  fixes norm'::"'a::gyrolinear_space \<Rightarrow> real"
  fixes f"allRightarrow real"
  assumes "\<forall>a::'a. (norm' alemma iso_with_real:
  mesbij_betw f' ((norm' ` UNIV) \<union> ((\<>x. 1 *norm x)`UNIV "
  assumes "\<>y::real \>z::. ( yin  ((norm' ` UNIV) \<union> ((\<lambda>x.))and
z\<in>  ((norm' ` UNIV) \<union> ((\<lambda>x. -1 * norm' x) ` UNIV)) \<and> y>z)\<longrightarrow> (f' y) > (f' z))"
  assumes "f' 0 = 0"
  assumes "\<forall>x::'a. \<forall>y::'a. f'(norm' (gyroplus x y)) \<le> (f' (norm' x)) + (f' (norm' y))"
  assumes "f' (norm' (scale r x)) = \<bar>r\<bar> * (f' (norm' x))"
  assumes "norm' gyru ) ' x
  assumes "\<forall>x::'a.have"<forall>y. (y\<in>norms_all \<longrightarrow> (\<exists>!r.(y = otimes' r x)))"
begin

efinitionnorms::"real set" where 
  "norms = norm' ` UNIV"

definition norms_neg::"real set" where 
  "norms_neg = (\<lambda>x. -1normNIV

definition
  erer

lemma norms_neq_not_empty:
 snorms_neg<{}"
  using add.inverse_inverse norms_neg_def astforceorce


lemma byerit_ld\<><orally. y \<in> norms_all \<longrightarrow> (\<exists>!r. y = otimes' r x)\<close> \<open>x \<in> norms_all\<close> ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain_def)
  assumes 
  shows "x=0"
  by (smt (verit, ccfv_threshold) assms(1) assms(2) f_inv_into_f normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_def norms_neg_def)
 

definition norm_oplus_f::"real \<Rightarrow> real \<Rightarrow> real" (infixl " \<oplus>\<^          moreovertaines 
  where "a \<oplus>\<^sub>f b = (if (a\<in>norms_all \<and> b\<in>norms_all) then (inv_into norms_all f') ((f' a) + (f' b))
else undefined)"


definition norm_otimes_f::"real \<Rightarrow> real \<Rightarrow> real"moreoverve (>u\<r::real. (u\<in>norms_all \<longrightarrow> ?g (otimes )=*u)"
  where "r \<otimes>\<^sub>f a = (if (a\<in>norms_all) then (inv_into norms_all' r  'a)
elsendefinedefined

lemma vector_space_of_norms
  shows "vector_space_with_domain norms_all norm_oplus_f 0 norm_otimes_f"
proof
  fix x 
  show "x \<in>
  proof-
    st
    show "y \<in> norms_all \<Longrightarrow real\<tarrowowreal<>bool" where
    proof-
      assume "y\<in>norms_all"
      show "x  \<oplus>\<^sub>f y \<in> norms_all"
 _ <pen>x \<in> norms_all\<close> \<open>y \<in> norms_all\<close> bij_betw_def inv_into_into norm_oplus_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
qed
       by (etis UNIV_I \<open>g_iso g\close bij_betw_iff_bijections g_iso_def minus_equation_iff mult_cancel_right2 mult_minus_left)
next
  show "0 \<in> norms_all"
    (Un_iff normed_gyrolinear_space'_ '_norms_def)
next 
  fix x y z
  show " x \<in> norms_all \<Longrightarrow>
       y \<in> norms_all \<Longrightarrow> z \<in> norms_all \<Longrightarrow> x  \<oplus>\<^sub>f y  \<oplus>\<^sub>f z = x  \<oplus>\<^sub>f (y  \<oplus>\<^sub>f z)"
  proof-
    assume "x\<in>norms_all"
    show " y \<in> norms_all \<Longrightarrow> z \<in> norms_all \<Longrightarrow> x  \<oplus>\<^sub>f y  \<oplus>\<^sub>f z = x  \<oplus>\<^sub>f (y  \<oplus>\<^sub>f z)"
    proof-shows "\<exists>g. (g_iso g \<and> (\<forall>x(x\in>orms \<longrightarrow> (g x)\<ge>0))
      assume "y \<in> norms_all"
      show "z \<in> norms_all \<Longrightarrow>   obtain x"herenorm' x = xx"
      proof-
        assume "z \<in> norms_all"
         x  <\<^sub>f y  \<oplus>\<^sub>f z = x  \<oplus>\<^sub>f (y  \<oplus>\<^>f z)
        proof-
          have " x  \<oplus>\<^sub>f y = (inv_into norms_allthenave xx=
            by 
          moreover have "x  \<oplus>\<^sub>f 
        f' ( (inv_into norms_all f') ((f' x) + (f' y))))  fz"
            by (metis (no_types,liftingNIV_I<openopen>z \<in> norms_all\<close> bij_betw_imp_surj_on calculation inv_into_into norm_oplus_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_defjava.lang.StringIndexOutOfBoundsException: Index 270 out of bounds for length 270
          moreover have "x  \<oplus>\<^sub>f y  \<oplus>\<^sub>f z = (inv_into norms_all     B{' (r\<>y) | r::real. True}"
            by (metis (mono_tags, lifting) UNIV_I bij_betw_imp_surj_on calculation(2) f_inv_into_f normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
          moreover have " (y  \<oplus><sub> =nv_intoorms_all(' ('zjava.lang.StringIndexOutOfBoundsException: Index 95 out of bounds for length 95
            by (simp add: \<open>y \<in> norms_all\<close> \<open>z \<in> norms_all\<close> norm_oplus_f_def)
          moreover have " x  \<oplus>\<^sub>f (y  \<oplus>\      moreover have "?gA \<subseteq> {r::real. r\<ge>0}"
        (f' ((inv_into norms_all f') ((f' y) + (f' z)))))"
            by (metis(o_tags,fting V_I <>x\> norms_all\<close> bij_betw_def calculation(4) inv_into_into norm_oplus_f_def normed_gyrolinear_space'.neg_defmed_gyrolinear_spacenear_spacemsnormed_gyrolinear_spacerolinear_spaceorms_all_defl_defefrms_def_f)
          moreover have " x  \<oplus>\<^sub>f (y  \<oplus>\<^sub>f z) = (inv_into norms_all f') ((f' x) + 
          ((f' y) + (java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
            qed
          ultimately show ?thesis 
            by argo
        qed
      qed
    qed
  qed
next
  fix x y
  < norms_all \<Longrightarrow> y \<in> norms_all \<Longrightarrow> x  \<oplus>\<^sub>f   \<oplus>\^sub>f x"
  proof-
    assumemoreoverhave?a gorm( \otimes> y) )"
    show "y \<in> norms_all \<Longrightarrow> x  \<oplus>\<^sub>f y = y  \<oplus>\<^sub>f x"
    proof-
      assume "y \<in> norms_all"
      show " x \<oplus>\<^sub>f y = java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
        by (simp add: add.commute norm_oplus_f_def)
    
  qed
next 
  fix x
  show " x \<in> norms_all \<Longrightarrow oplus\<^sub>f 0 = x"
  proof-
    assume "x\<in>norms_all"
    show "x  \<oplus>\<^sub>f 0 = x"
    proof-
       "x\oplus\<^sub>f 0  = (inv_into norms_all f')  ((f' x) + (f' 0))"
        by (metis (ags,liftingting)Un_iffff<> \<in> norms_all\<close> norm_oplus_f_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def rangeI)
      then show ?thesis
        by (smt (ritt,el_inststs<penx\<in> norms_all\<close> bij_betw_def inv_into_f_eq normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
    qedhave  <barr'\<bar> * (?g (norm' y))"
  qed
next 
  fix x
  show "x \in norms_all \<Longrightarrow> \<exists>y\<in>norms_all. x  \<oplus^f y = 0"
  
l"
    show " \<exists>y\<in>norms_all. x  \<oplus>\<^sub>f y = 0"
    proof-
      let ?y = "(inv_into     reoveroverhave gA_union_B A\<>?gB"
      have " x  \<oplus>\^sub>f ?y = (inv_into norms_all f') ((f' x) + (f' ?y))"
        by (smt (verit, ccfv_SIG) \<open>x \<in> norms_alllclose bij_betwE bij_betw_inv_into f_inv_into_f inv_into_into norm_oplus_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_msrmed_gyrolinear_spacerolinear_spacespacedef_ll_defefforms_def)
      moreover x  <oplus><^> ?y = (inv_into norms_all f') ((f' x) + (-(f' x)))"
        by (smt (verit, 
      moreover have "x  \<oplus>\<^sub>f ?y =(inv_into norms_all f') 0"
        culationforce
      moreover have "x  <\<^sub>f ?y = 0"
        by (metis (no_types, lifting) Un_iffn lambdax. - 1 * g x else g) a \<notin> {(if g xx < 0 then \<lambda>x. - 1 * g x else g) x |x. x \<in> norms}\<seyblastt
      moreover have "?y \<in> norms_all"
        by (metis (no_types, lifting) java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
      ultimately show ?thesis
        by st
    qed
  qed
next
  fix a
  show "x \<in> norms_all \<Longrightarrow<><^sub>f x \<in> norms_all"
  proof-
    assume "x\<in>norms_all"
    show  \times>\<^sub>f x \<in> norms_all"
      by (smt (verit, best) \<open>x \<in> norms_all\<close>lculationonastforcerce
  qed
next 
  fix x a b
  show "x \<in> norms_all \<Longrightarrow> (a +proof
  proof-
    assume "x\<in>norms_all"
    showmoreover have r  <>r'\bar * (?g xx)"
proof
      have "(a + b) \<otimes>\> x = (inv_into norms_all f') ((a+b) * (f' x))"
        using \<open>x \<ing_iso xx 0 then \<lambda>x. - 1 * g x else g)\<close> \<open>norm' x = xx\<close> \<open>xx \<in> norms \<and> xx \<noteq> 0\<loseecalculationtion)defrms_all_defl_def uto
      moreover "+)otimes\<^sub>f x = (inv_into norms_all f ( *'java.lang.StringIndexOutOfBoundsException: Index 97 out of bounds for length 97
        using calculation by argo
                 \<forall>y. (if g xx < 0 then \<lambda>x. - 1 * g x else g) (norm' y) \<in> {(if g xx < 0 then \<lambda>x. - 1 * g x else g) a |a. a \<in> {norm(<otimes x) by blast
      ((f' (a \<otimes>\<^sub>f x)) + (f' assume<lambdax. -1 * (xjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
      proof -
        have "\<And>f. \<not> normed_gyrolinear_space' norm' f \or> ij_betw norms_allIV
          by (metis (no_types) normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_def norms_all_def norms_def)
                  thenhowthesis
          by (metis (full_types) UNIV_I \<open>x \<in> norms_all\<close> bij_betw_imp_surj_on inv_into_into norm_oplus_f_def norm_otimes_f_def normed_gyrolinear_space'_axioms)
      qed
      moreover have **:" (inv_into norms_all f')
      ((f' (a \<otimes>\<^sub>f x)) + (f' (b \<otimes>\<^sub>f x))) = (inv_into norms_all f')
    ((f' ((inv_into norms_all f') (a*(f' x)))) +
    (' ((inv_into norms_all f') (b*(f' x)))))"
        using \<open>x \<in> norms_all\<close> norm_otimes_f_def by presburger
      moreoverea<><^sub>f x  \<oplus>\<^sub>f (b \<otimes>\<^sub>f x) v_intoms_allalll' * )(f)java.lang.StringIndexOutOfBoundsException: Index 137 out of bounds for length 137
        using * **
        by smtrit,v_threshold ij_betw_imp_surj_onsurj_onj_onnf_inv_into_fgyrolinear_spacerms_neg_deformed_gyrolinear_spaceolinear_space_eiomsnormed_gyrolinear_spaceear_spaceef norms_all_defrms_defdef
      ultimately show ?thesis 
        by presburger
    qed nj_on_def_ef 
  qed
next
  fix x a b
  show " x \<in> norms_all \<Longrightarrow> a \<avetep2<>r:eal\ge0 \<longrightarrow> (\<exists>x\<in> norms.( ?f x = r)))"
  proof-
    ex<>orms_all
   show "a \<otimes>\<^sub>f (b \<otimes>\<^sub>f x) = (a *(impaddbetw_def
      by ( rittUNIV_Iopenx \<in> norms_all\<close> ab_semigroup_mult_class.mult_ac(1) bij_betw_imp_surj_on f_inv_into_f inv_into_into norm_otimes_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'defms_all_defdef
  
next 
  fix x
  show "x \<in> norms_all \<Longrightarrow> 1 \<otimes>\<^sub>f x =    have ?thesis 
  proof-
    assume "x\<in>norms_all"
    show " 1 \<otimes>\<^sub>f x = x"
    proof-
      have " 1 \<otimes>\<^sub>f x = (inv_into norms_all ')1( )
        using \<open>x \<in> norms_all\<close> norm_otimes_f_def by presburger
      then show ?thesis 
        by (metis (no_types, lifting) \<open>x \<in>norms_all\<close> bij_betw_inv_into_leftlambda_one normed_gyrolinear_space'norms_neg_def normed_gyrolinear_space_ normed_gyrolinear_space_ norms_all_def norms_def
    qed
  qed
next
  show "\<And>x y a.
       x \<in> norms_all \<Longrightarrow>
       y \<in> norms_all \<Longrightarrow> a \<otimes>\<^sub>f (x  \<oplus>\<^sub>f y) = a \<otimes>\<^sub>f x  \<oplus>\<^sub>f (a \<otimes>\<^sub>f y)"
  proof-
    {
     x y a
    assume "x\<in> norms_all \<and> y\<in> norms_all"
    have "a \<otimes>\<^sub>f (x  \<oplus>\<^sub>fy=(nv_intonorms_allms_allf)a  f' ((inv_into norms_all f') ((f x  f )))
      by (             "otimes' \<alpha>  (norm' x)=norm' (\<alpha> <otimes> )"
    moreover have "a \<otimes>^ubf  ><^sub>f (a \<otimes>\<^sub>f y) = (inv_into norms_all f') ((f' _ntonorms_allfa*( ))( (v_intorms_all *f ))"
      by (smt (verit) \<open>x \<in> norms_all \<and> y \<in> norms_all\<close> bij_betw_def inv_into_into iso_tuple_UNIV_I normed_gyrolinear_space'.norm_oplus_f_def normed_gyrolinear_space'.norm_otimes_f_def normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
    ultimately have "a \<otimes>\<^sub>f (x  \<oplus>\<^sub>f y) = a \<otimes>\<^sub>f x  \<oplus>\<^sub>f (a \<otimes>\<^sub>f y)"
      using UNIV_Iij_betw_imp_surj_on_p_surj_on_onf_inv_into_fed_gyrolinear_spaceolinear_spacepaceace'xiomsnormed_gyrolinear_spaceyrolinear_spaceear_space_acedeforms_all_deforms_defms_neg_defneg_defdeffing_classring_distribsg_distribsstribs)
      by (smt verit, best) normed_gyrolinear_space'.norms_neg_def)
  }
   show "\<And>xa
       x \<in> norms_all \<Longrightarrow>
       y \<in> norms_all \<Longrightarrow> a \<otimes>\<^sub>f (x  \<oplus>\<sub>) <><^sub>f x  \<oplus>\<^sub>f (a \<otimes>\<^sub>f y)"
     using \<open>\<And>y x a. x \<in> norms_all \<and> y \<in> norms_all \<Longrightarrow> a \<otimesqed
   qed
qed


lemma      f2:bij_betwrrnorms_alll \<and> 0 = rr 0 \<and> (\<forall>r ra. r \<in> norms_all \<and> a<in> norms_all<ongrightarrow rr (oplus' r ra) = rr r + rr ra) \<and> (\<forall>r ra. r \<in> norms_all \<longrightarrow> rr (otimes' ra r) = ra * rr r)"
  shows "norm' (x \<oplus> y) \<le> (norm' x)  \<oplus>\<^sub>f (norm orms<and z \<in> norms \<and> z < y \<longrightarrow> ?f z < ?f y"
proof-
    have " (f' (norm' (x \<oplus> y))) \<le> (f' (norm' x          aveotimesetanorm x0 z
      using normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def by blast
    moreover have "(inv_into norms_all f' (f' (norm' (x \<oplus> y)))) \<le> 
(inv_into norms_all f' ((f' (norm' x) (f(rm)))"
      by (smt (verit, ccfv_SIG) UNIV_I bij_betw_def f_inv_into_f inv_into_into normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
  ultimately show ?thesis
    by (metis moreovere? \<and> ?alpha < ?beta longleftrightarrow 0 \<le> (?f y) \<and> ( ) ( z)"
qed

lemma r3:
  shows "norm  <otimes>  x) =  \<bar>r\<bar> \<otimes>\<^sub>f (norm' x)"
  by (smt (verit, best) bij_betw_inv_into_left in_mono inf_sup_ord(3) norm_otimes_f_def normed_gyrolinear_space.ms_neg_defeg_defdeffmed_gyrolinear_spacemsormed_gyrolinear_space orms_all_def_deffnorms_defdefangeIeI)

lemma one_dim_vs:
  shows "one_dim_vector_space_with_domain norms_all norm_oplus_f 0 norm_otimes_f"
proof-
  have step1: "ctor_space_with_domainith_domainorms_all_ m_oplus_fus_f norm_otimes_f
    using vector_space_of_norms by auto
  moreover have step2: "\forally. \<forall>x. (y\<in> norms_all \<and>
 x\<in> norms_all \<and> x\<noteq>0 \<longrightarrow> (\<exists>!r::real. y = r \<otimes>\<^sub>f x))"
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
    fix y
    show " \< :norm  <oplus )in norms"
 x\<in> norms_all \<and> x\<noteq>0 \<longrightarrow> (\<exists>!r::real. y = r \<otimes>\<^sub>f x))"
    proofrith
      fix x
     w< norms_all \<and>
 x\<in> norms_all ultimatelyhowwhesis
      proof
        assume "yin norms_all \<and>
 <in norms_all \<and> x\<noteq>0"
        show "(\<exists>!r::real. y =r\times\<^sub>f x)"
        proof-
          have "(\<exists>r::real. y = r \<otimes>\<^sub>f x)"
          proof-
            let ?r = "f'(y)/f'(x)"
            have "?r \<otimes>\<^sub>f x = (inv_into norms_all f') (?r * (f' x))"
              by (simp add: \<open>y \<in> norms_all \<and> x \<in> norms_all \<and> x \<noteq> 0\<close> norm_otimes_f_def
            then show ?thesis 
              by (smt (verit, ccfv_SIG) \<open>y \<in> norms_all \<and> x \<in
          qed
          
          moreover have "\<forall>r1.\<forall>r2. (y = r1 \<otimes>\<^sub>f x \<and> y = r2 \
          proof
            fix r1 
            show "\<forall>r2. y = r1 \<otimes>\<^sub>f x \<and> y = r2 \<otimes>\<^sub>f x \<longrightarrow> r1=r2"
            proof
              fix r2 
              show "y = r1 \<otimes>\<^sub>f x \<and> y = r2 \<otimes>\<^sub>f x \<longrightarrow> r1=r2"
              proof
                assume "y = r1 \<otimes>\<^sub>f x \<and> y = r2 \<otimes>\<^sub>f x "
                show "r1=r2"
                proof-
                        have "r1 \<otimes>\<^sub>f x = (inv_into norms_all f') (r1 * (f' x))"
            by (simp add: \<open>y \<in> norms_all \<and> x \<in> norms_all \<and> x \<noteq> 0\<close> norm_otimes_f_def)
          moreover have "r2 \<otimes>\<^sub>f x = (inv_into norms_all f') (r2 * (f' x))"
            using \<open>y \<in> norms_all \<and> x \<in> norms_all \<and> x \<noteq> 0\<close> norm_otimes_f_def by presburger
          moreover 
            have "(inv_into norms_all f') (r1 * (f' x)) = (inv_into norms_all f') (r2 * (f' x))"
              using \<open>y = r1 \<otimes>\<^sub>f x \<and> y = r2 \<otimes>\<^sub>f x\<close> calculation(1) calculation(2) by fastforce
            moreover have" f' ( (inv_into norms_all f') (r1 * (f' x))) =
        f'( (inv_into norms_all f') (r2 * (f' x)))"
              using calculation by presburger
            moreover have "r1* (f' x) = r2* (f' x)"
              by (metis (mono_tags, lifting) UNIV_I bij_betw_imp_surj_on calculation(3) inv_into_injective normed_gyrolinear_space'.norms_neg_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def norms_all_def norms_def)
            ultimately show ?thesis
              by (metis (no_types, opaque_lifting) \<open>y \<in> norms_all \<and> x \<in> norms_all \<and> x \<noteq> 0\<close> mult_right_cancel norm_oplus_f_def normed_gyrolinear_space'_axioms normed_gyrolinear_space'_def vector_space_of_norms vector_space_with_domain.add_zero vector_space_with_domain.zero_in_dom)
          qed
          
        qed
      qed
    qed
    ultimately show ?thesis
      by blast
  qed
qed
qed
qed
  ultimately show ?thesis
    by (simp add: one_dim_vector_space_with_domain.intro one_dim_vector_space_with_domain_axioms.intro)
qed

end

locale normed_gyrolinear_space'' = 
  fixes norm'::"'a::gyrolinear_space \<Rightarrow> real"
  fixes oplus'::"real \<Rightarrow> real \<Rightarrow> real"
  fixes otimes'::"real\<Rightarrow>real \<Rightarrow> real"
  assumes "\<forall>a::'a. (norm' a \<ge> 0)"
  assumes ax_space: "one_dim_vector_space_with_domain ((norm' ` UNIV) \<union> ((\<lambda>x. -1 * norm' x) ` UNIV))
      oplus' 0 otimes'"
  assumes ax3: "\<forall>x::'a. \<forall>y::'a. (norm' (gyroplus x y)) \<le> oplus' (norm' x) (norm' y)"
  assumes "(norm' (scale r x)) = otimes' \<bar>r\<bar> (norm' x)"
  assumes "norm' (gyr u v x) = norm' x"
  assumes "\<forall>x::'a. ((norm' x) = 0 \<longleftrightarrow> x = gyrozero)"
begin

definition norms::"real set" where 
  "norms = norm' ` UNIV"

definition norms_neg::"real set" where 
  "norms_neg = (\<lambda>x. -1 * norm' x) ` UNIV"

definition norms_all::"real set" where 
  "norms_all = norms \<union> norms_neg"

lemma norms_neq_not_empty:
  shows "norms_neg \<noteq> {}"
  using add.inverse_inverse norms_neg_def by fastforce


lemma zero_only_norms_norms_neg:
  assumes "x\<in>norms" "x\<in>norms_neg"
  shows "x=0"
 by (smt (verit, ccfv_threshold) assms(1) assms(2) f_inv_into_f normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def norms_def norms_neg_def)

lemma not_trivial_domen_has_pos:
  assumes "\<exists>x. (x\<in>norms_all \<and> x\<noteq>0)"
  shows "\<exists>x. (x\<in>norms \<and> x\<noteq>0)"
  using assms norms_all_def norms_def norms_neg_def by auto

lemma iso_with_real:
  assumes "\<exists>x. (x\<in>norms_all \<and> x\<noteq>0)" (* not trivial domain *)
  shows "∃g. (bij_betw g norms_all UNIV ∧ (g 0) = 0 ∧
  (∀u.∀v. (u∈norms_all ∧ v∈norms_all ⟶ g (oplus' u v) = (g u) + (g v)))
 ∧ (∀u.∀r::real. (u∈norms_all ⟶ g (otimes' r u) = r*(g u)))
)" (*\<and> (\<forall>u. (u\<in>norms \<longrightarrow> (g u)\<ge>0))*)
proof-
  obtain "x" where "x∈norms ∧ x≠0"
    using assms not_trivial_domen_has_pos by presburger
  moreover have "x∈ norms_all"
    by (simp add: calculation norms_all_def)
  have "∀y. (y∈norms_all ⟶ (∃!r.(y = otimes' r x)))"
    using ax_space  one_dim_vector_space_with_domain_axioms_def
    by (metis ‹x ∈ norms_all› calculation norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(2))
  let ?g = "λy. (THE r. y = otimes' r x)"
  have "bij_betw ?g norms_all UNIV"
  proof-
    have "inj_on ?g norms_all"
      by (smt (verit, best) ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› inj_on_def the_equality)
    moreover have "∀r::real. ∃y. (y∈ norms_all ∧ y = otimes' r x)"
      by (metis ‹x ∈ norms_all› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.smult_closed)
    moreover have "∀r::real.∃y∈norms_all. ?g y = r"
      using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› calculation(2) by blast
    ultimately show ?thesis 
      by (smt (verit, ccfv_threshold) UNIV_eq_I bij_betw_apply inj_on_imp_bij_betw)
  qed
  moreover have "?g 0 = 0"
  proof-
    obtain "r" where "0 = otimes' r x"
      by (metis ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain_def vector_space_with_domain.zero_in_dom)
    
    moreover obtain "xx" where "x=norm' xx "
      using norms_all_def 
      using norms_def norms_neg_def
      using ‹x ∈ norms ∧ x ≠ 0› by auto
   
    moreover  have "otimes' 0 x = norm' (0 ⊗ xx)"
      by (metis (no_types, lifting) calculation(2) norm_zero normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def real_norm_def)
    moreover have "otimes' 0 x = 0"
      by (smt (verit, ccfv_threshold) ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹x ∈ norms_all› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain_def)
    ultimately show ?thesis 
      by (smt (verit) ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) the1_equality vector_space_with_domain.zero_in_dom)
  qed
  moreover have "∀u.∀v. (u∈norms_all ∧ v∈norms_all ⟶ ?g (oplus' u v) = (?g u) + (?g v))"
  proof
    fix u
    show "∀v. (u∈norms_all ∧ v∈norms_all ⟶ ?g (oplus' u v) = (?g u) + (?g v))"
    proof
      fix v
      show "u∈norms_all ∧ v∈norms_all ⟶ ?g (oplus' u v) = (?g u) + (?g v)"
      proof
        assume "u∈norms_all ∧ v∈norms_all"
        show " ?g (oplus' u v) = (?g u) + (?g v)"
        proof-
          obtain "a" where "u = otimes' a x"
            using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹u ∈ norms_all ∧ v ∈ norms_all› by blast
          moreover obtain "b" where "v = otimes' b x"
            using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹u ∈ norms_all ∧ v ∈ norms_all› by blast
          moreover have *:"oplus' u v = otimes' (a+b) x"
            by (metis ‹x ∈ norms_all› ax_space calculation(1) calculation(2) norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain_def vector_space_with_domain.smult_distr_sadd)
          moreover have "oplus' u v ∈ norms_all"
            by (metis "*" ‹x ∈ norms_all› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.smult_closed)
          moreover have "?g (oplus' u v) = (a+b)"
            using * 
            using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› calculation(4) by auto
          ultimately show ?thesis 
            by (smt (verit, del_insts) ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹u ∈ norms_all ∧ v ∈ norms_all› the1_equality)
        qed
      qed
    qed
  qed
  moreover have "(∀u.∀r::real. (u∈norms_all ⟶ ?g (otimes' r u) = r*(?g u)))"
  proof
    fix u
    show "∀r::real. (u∈norms_all ⟶ ?g (otimes' r u) = r*(?g u))"
    proof
      fix r
      show "u∈norms_all ⟶ ?g (otimes' r u) = r*(?g u)"
      proof
        assume "u∈norms_all"
        show "?g (otimes' r u) = r*(?g u)"
        proof-
          obtain "a" where "u = otimes' a x"
            using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹u ∈ norms_all› by blast
          moreover have "otimes' r u = otimes' (r*a) x"
            by (metis ‹x ∈ norms_all› ax_space calculation norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.smult_assoc)
          moreover have "otimes' r u ∈ norms_all"
            by (metis ‹u ∈ norms_all› ax_space norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.smult_closed)
          moreover have "?g (otimes' r u) = (r*a)"
            using ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› calculation(2) calculation(3) by auto
          ultimately show ?thesis 
            by (smt (verit, ccfv_threshold) ‹∀y. y ∈ norms_all ⟶ (∃!r. y = otimes' r x)› ‹u ∈ norms_all› theI')
        qed
      qed
    qed
  qed
 
  ultimately show ?thesis 
    by blast
qed

definition g_iso::"(real==>real)==>bool" where
  "g_iso g ⟷ (bij_betw g norms_all UNIV ∧ (g 0) = 0 ∧
  (∀u.∀v. (u∈norms_all ∧ v∈norms_all ⟶ g (oplus' u v) = (g u) + (g v)))
 ∧ (∀u.∀r::real. (u∈norms_all ⟶ g (otimes' r u) = r*(g u))))"

lemma iso_neg_with_real:
  assumes "∃x. (x∈norms_all ∧ x≠0)" (* not trivial domain *)
  shows "g_iso g ⟶ g_iso (λx. -1 * (g x))" 
proof
  assume "g_iso g"
  show " g_iso (λx. -1 * (g x))"
  proof-
    have "bij_betw (λx. -1 * (g x)) norms_all UNIV"
    proof-
      have "inj_on (λx. -1 * (g x)) norms_all"
        by (smt (verit, ccfv_threshold) ‹g_iso g› bij_betw_imp_inj_on g_iso_def inj_on_def)
      moreover have "∀r::real.∃y∈norms_all. ((λx. -1 * (g x)) y = r)"
        by (metis UNIV_I ‹g_iso g› bij_betw_iff_bijections g_iso_def minus_equation_iff mult_cancel_right2 mult_minus_left)
      ultimately show ?thesis 
        by (metis (mono_tags, lifting) UNIV_eq_I bij_betwE bij_betw_imageI)
    qed
    moreover have " (λx. -1 * (g x)) 0 = 0"
      using ‹g_iso g› g_iso_def by force
    moreover have "(∀u.∀v. (u∈norms_all ∧ v∈norms_all ⟶ (λx. -1 * (g x)) (oplus' u v)
 = ( (λx. -1 * (g x)) u) + ( (λx. -1 * (g x)) v)))"
      using ‹g_iso g› g_iso_def by auto
    moreover have "(∀u.∀r::real. (u∈norms_all ⟶ (λx. -1 * (g x)) (otimes' r u) = r*( (λx. -1 * (g x)) u)))"
      using ‹g_iso g› g_iso_def by auto
    ultimately show ?thesis 
      using g_iso_def by presburger
  qed
qed

lemma iso_with_real_positive_on_norms:
  assumes "∃x. (x∈norms_all ∧ x≠0)" (* not trivial domain *)
  shows "∃g. (g_iso g ∧ (∀x.(x∈norms ⟶ (g x)≥0))
\<and> bij_betw (λx. if x ∈ norms then (g x) else undefined) norms {r::real. r≥0})"
proof-
  obtain "xx" where "xx∈norms ∧ xx≠0"
    using assms not_trivial_domen_has_pos by blast
  moreover obtain "x" where "norm' x = xx"
    using calculation norms_def by auto
  moreover obtain "g" where "g_iso g"
    using iso_with_real
    using assms g_iso_def by blast
  let ?g = "if (g xx) < 0 then (λx. -1 * (g x)) else g"
  have *:"?g xx ≥ 0"
    by force
  moreover have "?g xx ≠0"
  proof (rule ccontr)
    assume "¬(?g xx ≠0)"
    have "?g xx = 0"
      using ‹¬ (if g xx < 0 then λx. - 1 * g x else g) xx ≠ 0› by blast
    then have "?g xx = g xx"
      by (smt (verit, ccfv_threshold))
    then have "g xx = 0"
      by (simp add: ‹(if g xx < 0 then λx. - 1 * g x else g) xx = 0›)
    then have "xx=0"
      by (metis ‹g_iso g› ax_space bij_betw_iff_bijections calculation(1) g_iso_def in_mono inf_sup_ord(3) norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.zero_in_dom)
    then show False 
      using calculation(1) by blast
  qed
  moreover have "g_iso ?g"
    using ‹g_iso g› assms iso_neg_with_real by presburger
  moreover have "∀x.(x∈norms ⟶ (?g x)≥0)"
  proof(rule ccontr)
    assume "¬(∀x.(x∈norms ⟶ (?g x)≥0))"
    have "∃x. (x∈norms ∧ (?g x) < 0)"
      using ‹¬ (∀x. x ∈ norms ⟶ 0 ≤ (if g xx < 0 then λx. - 1 * g x else g) x)› by fastforce
    moreover obtain "yy" where "yy ∈ norms ∧ (?g yy) <0"
      using calculation by blast
    moreover obtain "y" where "norm' y = yy"
      using calculation(2) norms_def by auto
    let ?A = "{norm' (r ⊗ x) | r::real. True}"
    let ?B = "{norm' (r ⊗ y) | r::real. True}"
    have "?A ∪ ?B ⊆ norms"
      using norms_def by auto
    let ?gA = "{(?g a)|a. a∈?A}"
    have "?gA = {r::real. r≥0}"
    proof-
      have "∀a. (a∈?A ⟶ ?g a ≥0)"
      proof
        fix a
        show "(a∈?A ⟶ ?g a ≥0)"
        proof
            assume "a∈?A"
            show "?g a ≥0"
            proof-
              obtain "r" where "a = norm' (r ⊗ x) "
                using ‹a ∈ {norm' (r ⊗ x) |r. True}› by blast
              moreover have "?g a = ?g (norm' (r ⊗ x) )"
                using calculation by presburger
              moreover have "?g a = ?g ( otimes' ∣r∣ (norm' x))"
                by (metis calculation(1) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              moreover have "?g a = ∣r∣ * ?g (norm' x)"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' x = xx› ‹xx ∈ norms ∧ xx ≠ 0› calculation(3) g_iso_def norms_all_def by auto
              ultimately show ?thesis 
                by (simp add: ‹norm' x = xx›)
            qed
        qed
      qed
      moreover have "?gA ⊆ {r::real. r≥0}"
        using calculation by fastforce
      moreover have "{r::real. r≥0} ⊆ ?gA"
      proof-
        have "bij_betw ?g norms_all UNIV"
          using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› g_iso_def by blast
        moreover have "∀r::real. (r≥0 ⟶ r∈?gA)"
        proof
          fix r
          show "r≥0 ⟶ r∈?gA"
          proof
            assume "r≥0"
            show "r∈?gA"
            proof-
              obtain "r'" where "∣r'∣ = r / (?g xx)"
                using  *
                by (meson ‹0 ≤ r› abs_of_nonneg divide_nonneg_nonneg)
              moreover have "r = ∣r'∣ * (?g xx)"
                by (simp add: ‹(if g xx < 0 then λx. - 1 * g x else g) xx ≠ 0› calculation)
              moreover have "r = ∣r'∣ * (?g (norm' x))"
                using ‹norm' x = xx› calculation(2) by blast
              moreover have "r = ?g (otimes' ∣r'∣ (norm' x))"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' x = xx› ‹xx ∈ norms ∧ xx ≠ 0› calculation(3) g_iso_def norms_all_def by auto
              moreover have "r = ?g (norm' (∣r'∣ ⊗ x))"
                by (smt (verit, del_insts) calculation(4) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              ultimately show ?thesis 
                by blast
            qed
          qed
        qed
        ultimately show ?thesis 
          by blast
      qed
      
      ultimately show ?thesis 
        by fastforce
    qed
    let ?gB = "{(?g b)|b. b∈?B}"
    have "?gB = {r::real. r≤0}"


 proof-
      have "∀a. (a∈?B ⟶ ?g a ≤0)"
      proof
        fix a
        show "(a∈?B ⟶ ?g a ≤0)"
        proof
            assume "a∈?B"
            show "?g a≤0"
            proof-
              obtain "r" where "a = norm' (r ⊗ y) "
                     using ‹a ∈ {norm' (r ⊗ y) |r. True}› by blast
              moreover have "?g a = ?g (norm' (r ⊗ y) )"
                using calculation by presburger
              moreover have "?g a = ?g ( otimes' ∣r∣ (norm' y))"
                by (metis calculation(1) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              moreover have "?g a = ∣r∣ * ?g (norm' y)"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' y = yy› ‹yy ∈ norms ∧ (if g xx < 0 then λx. - 1 * g x else g) yy < 0› calculation(3) g_iso_def norms_all_def by auto
               
              ultimately show ?thesis 
                by (simp add: ‹norm' y = yy› ‹yy ∈ norms ∧ (if g xx < 0 then λx. - 1 * g x else g) yy < 0› mult_le_0_iff order_less_imp_le)
            qed
        qed
      qed
      moreover have "?gB ⊆ {r::real. r≤0}"
        using calculation by fastforce
      moreover have "{r::real. r≤0} ⊆ ?gB"
      proof-
        have "bij_betw ?g norms_all UNIV"
          using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› g_iso_def by blast
        moreover have "∀r::real. (r≤0 ⟶ r∈?gB)"
        proof
          fix r
          show "r≤0 ⟶ r∈?gB"
          proof
            assume "r≤0"
            show "r∈?gB"
            proof-
              obtain "r'" where "∣r'∣ = r / (?g yy)"
                using  *
                by (metis ‹r ≤ 0› ‹yy ∈ norms ∧ (if g xx < 0 then λx. - 1 * g x else g) yy < 0› abs_if divide_less_0_iff less_eq_real_def not_less_iff_gr_or_eq)
              moreover have "r = ∣r'∣ * (?g yy)"
                using ‹yy ∈ norms ∧ (if g xx < 0 then λx. - 1 * g x else g) yy < 0› calculation by auto
              moreover have "r = ∣r'∣ * (?g (norm' y))"
                using ‹norm' y = yy› calculation(2) by blast
              moreover have "r = ?g (otimes' ∣r'∣ (norm' y))"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' y = yy› ‹yy ∈ norms ∧ (if g xx < 0 then λx. - 1 * g x else g) yy < 0› calculation(3) g_iso_def norms_all_def by auto
              moreover have "r = ?g (norm' (∣r'∣ ⊗ y))"
                by (smt (verit, del_insts) calculation(4) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              ultimately show ?thesis 
                by blast
            qed
          qed
        qed
        ultimately show ?thesis 
          by blast
      qed
      
      ultimately show ?thesis 
        by fastforce
    qed

    let ?gX_norms = "{(?g x)|x. x∈norms}"
    let ?gX_norms_all = "{(?g x)|x. x∈norms_all}"
    let ?gA_union_B = "{(?g x)|x. x∈ ?A∪?B}"
    have "?gA_union_B ⊆ ?gX_norms"
      using ‹{norm' (r ⊗ x) |r. True} ∪ {norm' (r ⊗ y) |r. True} ⊆ norms› by force
    moreover have "?gA_union_B = ?gA ∪ ?gB"
    proof-
      have "?gA_union_B ⊆ ?gA ∪ ?gB"
        by blast
      moreover have "?gA ∪ ?gB ⊆ ?gA_union_B"
        by blast
      ultimately show ?thesis
        by force
    qed
    moreover have "?gA_union_B = UNIV"
      using ‹{(if g xx < 0 then λx. - 1 * g x else g) a |a. a ∈ {norm' (r ⊗ x) |r. True}} = {r. 0 ≤ r}› ‹{(if g xx < 0 then λx. - 1 * g x else g) b |b. b ∈ {norm' (r ⊗ y) |r. True}} = {r. r ≤ 0}› calculation(4) by force
    moreover have "UNIV ⊆ ?gX_norms"
      using calculation(3) calculation(5) by argo
   (* moreover have "?gX_norms \<subset> ?gX_norms_all"
    proof-
      have "\<forall>a. (a\<in> ?gX_norms \<longrightarrow> a\<in> ?gX_norms_all)"
        using norms_all_def by fastforce*)
      (*moreover have "\<exists>a. (a\<in>?gX_norms_all \<and> \<not>a\<in>?gX_norms)"
      proof-*)
        obtain "a" where "a∈norms_all ∧ ¬a∈norms"
          by (metis (mono_tags, lifting) Un_iff add.inverse_inverse assms mult_minus1 norms_all_def norms_def norms_neg_def rangeE rangeI zero_only_norms_norms_neg)
        let ?a = "?g a"
        have "?a ∈ ?gX_norms_all "

          using ‹a ∈ norms_all ∧ a ∉ norms› by blast

        moreover have "¬?a∈ ?gX_norms"
        proof(rule ccontr)
          assume "¬(¬?a∈ ?gX_norms)"
          have "?a∈?gX_norms"
            using ‹¬ (if g xx < 0 then λx. - 1 * g x else g) a ∉ {(if g xx < 0 then λx. - 1 * g x else g) x |x. x ∈ norms}› by blast
          then obtain "b" where "b∈norms ∧ ?g b = ?a"
            by force
         
            then show False using  ‹a ∈ norms_all ∧ a ∉ norms› ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› bij_betw_inv_into_left g_iso_def inf_sup_ord(3) norms_all_def subsetD
              by (smt (verit, ccfv_threshold) ‹g_iso g›)
          qed
          moreover have "False" 

            using ‹UNIV ⊆ {(if g xx < 0 then λx. - 1 * g x else g) x |x. x ∈ norms}› calculation(7) by blast
            
    ultimately show False 
      by auto
  qed
  

  moreover have " bij_betw (λx. if x ∈ norms then (?g x) else undefined) norms {r::real. r≥0}"
  proof-
    let ?f = "(λx. if x ∈ norms then (?g x) else undefined)"
     let ?A = "{norm' (r ⊗ x) | r::real. True}"
     let ?gA = "{(?g a)|a. a∈?A}"
     have s1:"?gA = {r::real. r≥0}"
        proof-
      have "∀a. (a∈?A ⟶ ?g a ≥0)"
      proof
        fix a
        show "(a∈?A ⟶ ?g a ≥0)"
        proof
            assume "a∈?A"
            show "?g a ≥0"
            proof-
              obtain "r" where "a = norm' (r ⊗ x) "
                using ‹a ∈ {norm' (r ⊗ x) |r. True}› by blast
              moreover have "?g a = ?g (norm' (r ⊗ x) )"
                using calculation by presburger
              moreover have "?g a = ?g ( otimes' ∣r∣ (norm' x))"
                by (metis calculation(1) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              moreover have "?g a = ∣r∣ * ?g (norm' x)"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' x = xx› ‹xx ∈ norms ∧ xx ≠ 0› calculation(3) g_iso_def norms_all_def by auto
              ultimately show ?thesis 
                by (simp add: ‹norm' x = xx›)
            qed
        qed
      qed
      moreover have "?gA ⊆ {r::real. r≥0}"
        using calculation by fastforce
      moreover have "{r::real. r≥0} ⊆ ?gA"
      proof-
        have "bij_betw ?g norms_all UNIV"
          using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› g_iso_def by blast
        moreover have "∀r::real. (r≥0 ⟶ r∈?gA)"
        proof
          fix r
          show "r≥0 ⟶ r∈?gA"
          proof
            assume "r≥0"
            show "r∈?gA"
            proof-
              obtain "r'" where "∣r'∣ = r / (?g xx)"
                using  *
                by (meson ‹0 ≤ r› abs_of_nonneg divide_nonneg_nonneg)
              moreover have "r = ∣r'∣ * (?g xx)"
                by (simp add: ‹(if g xx < 0 then λx. - 1 * g x else g) xx ≠ 0› calculation)
              moreover have "r = ∣r'∣ * (?g (norm' x))"
                using ‹norm' x = xx› calculation(2) by blast
              moreover have "r = ?g (otimes' ∣r'∣ (norm' x))"
                using ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› ‹norm' x = xx› ‹xx ∈ norms ∧ xx ≠ 0› calculation(3) g_iso_def norms_all_def by auto
              moreover have "r = ?g (norm' (∣r'∣ ⊗ x))"
                by (smt (verit, del_insts) calculation(4) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
              ultimately show ?thesis 
                by blast
            qed
          qed
        qed
        ultimately show ?thesis 
          by blast
      qed
      
      ultimately show ?thesis 
        by fastforce
    qed
     moreover have s2:"∀y. (?g (norm' y) ≥0)"
       using ‹∀x. x ∈ norms ⟶ 0 ≤ (if g xx < 0 then λx. - 1 * g x else g) x› norms_def by blast
     moreover have "norms = ?A"
     proof-
       have "∀y. (?g (norm' y) ∈ ?gA)"
         using s1 s2 by blast
       moreover have "norms ⊆ ?A"
       proof-
         have "∀y. (y∈norms ⟶ y∈?A)"
         proof
           fix y
           show "y∈norms ⟶ y∈?A"
           proof
             assume "y∈norms"
             show "y∈?A"
             proof-
               obtain "yy" where "y=norm' yy"
                 using ‹y ∈ norms› norms_def by auto
               moreover have "?g (norm' yy) ∈?gA"
                 using ‹∀y. (if g xx < 0 then λx. - 1 * g x else g) (norm' y) ∈ {(if g xx < 0 then λx. - 1 * g x else g) a |a. a ∈ {norm' (r ⊗ x) |r. True}}› by blast
               moreover have "norm' yy ∈ ?A"
               proof-
                 obtain "h" where "h ∈ ?A ∧ ?g h = ?g (norm' yy)"
                   using calculation(2) by fastforce
                 moreover have "?g h ≥0"
                   using calculation s2 by blast
                
                 moreover {
                   assume "?g = g"
                   have " g h = g (norm' yy)"
                     by (smt (verit, ccfv_SIG) calculation(1))
                   
                   moreover have "h=norm' yy"
                   proof-
                     have "h∈norms"
                       using ‹h ∈ {norm' (r ⊗ x) |r. True} ∧ (if g xx < 0 then λx. - 1 * g x else g) h = (if g xx < 0 then λx. - 1 * g x else g) (norm' yy)› norms_def by force
                     moreover have "norm' yy ∈ norms"
                       using ‹y = norm' yy› ‹y ∈ norms› by blast
                     ultimately show ?thesis 
                       by (metis ‹g h = g (norm' yy)› ‹g_iso g› bij_betw_inv_into_left g_iso_def inf_sup_ord(3) norms_all_def subset_iff)
                   qed
                   ultimately have ?thesis
                     using ‹h ∈ {norm' (r ⊗ x) |r. True} ∧ (if g xx < 0 then λx. - 1 * g x else g) h = (if g xx < 0 then λx. - 1 * g x else g) (norm' yy)› by blast
                 }
                   moreover {
                   assume "?g = (λx. -1 * (g x))"
                   have " g h = g (norm' yy)"
                     by (smt (verit, ccfv_SIG) calculation(1))
                   
                   moreover have "h=norm' yy"
                   proof-
                     have "h∈norms"
                       using ‹h ∈ {norm' (r ⊗ x) |r. True} ∧ (if g xx < 0 then λx. - 1 * g x else g) h = (if g xx < 0 then λx. - 1 * g x else g) (norm' yy)› norms_def by force
                     moreover have "norm' yy ∈ norms"
                       using ‹y = norm' yy› ‹y ∈ norms› by blast
                     ultimately show ?thesis 
                       by (metis ‹g h = g (norm' yy)› ‹g_iso g› bij_betw_inv_into_left g_iso_def inf_sup_ord(3) norms_all_def subset_iff)
                   qed
                   ultimately have ?thesis
                     using ‹h ∈ {norm' (r ⊗ x) |r. True} ∧ (if g xx < 0 then λx. - 1 * g x else g) h = (if g xx < 0 then λx. - 1 * g x else g) (norm' yy)› by blast
                 }
                 ultimately show ?thesis 
                   by argo
               qed
               ultimately show ?thesis 
                 by fastforce
             qed
         qed
       qed
        show ?thesis 
          using ‹∀y. y ∈ norms ⟶ y ∈ {norm' (r ⊗ x) |r. True}› by blast
      qed
      ultimately show ?thesis 
        using norms_def by fastforce
    qed
     moreover have step1:"inj_on ?f norms"
     proof-
       have "∀x.∀y. (x∈ norms ∧ y∈ norms ∧ (?f x) = (?f y) ⟶ x=y)"
       proof
         fix x 
         show "∀y. (x∈ norms ∧ y∈ norms ∧ (?f x) = (?f y) ⟶ x=y)"
         proof
           fix y 
           show " (x∈ norms ∧ y∈ norms ∧ (?f x) = (?f y) ⟶ x=y)"
             by (metis ‹g_iso (if g xx < 0 then λx. - 1 * g x else g)› bij_betw_imp_inj_on g_iso_def inf_sup_ord(3) inj_on_def norms_all_def subsetD)
         qed
       qed
       then show ?thesis
         using inj_on_def by blast
     qed
     moreover have "∀r::real. (r≥0 ⟶ (∃x. (x∈ norms ∧ ?f x = r)))"
       by (smt (verit) calculation(3) mem_Collect_eq s1)
       
     moreover have step2:"∀r::real. (r≥0 ⟶ (∃x∈ norms.( ?f x = r)))"
 
       using calculation(5) by blast
     moreover have "∀r∈{x::real. x≥0}. (∃x∈norms. (?f x = r))"
       using step2
       by blast
     moreover have **:"?f=(λx. if x ∈ norms then (?g x) else undefined)"
       by meson
     moreover have "?f ` norms = {r::real. r≥0}"
       by (smt (verit) Collect_cong Setcompr_eq_image calculation(3) s1)
     ultimately show ?thesis 
       by (simp add: bij_betw_def)
    
   qed
 
  ultimately show ?thesis
    by blast
qed




lemma comparing_norms_help:
  assumes "x∈norms" "y∈norms_all"
  "x≤y"
shows "y∈ norms"
proof-
  have "x < y ∨ x=y"
    using assms(3) by argo
  moreover {
    assume "x<y"
    have ?thesis 
      by (smt (verit) Un_iff ‹x < y› add_0 add_uminus_conv_diff assms(1) assms(2) full_SetCompr_eq linorder_not_less mem_Collect_eq mult_minus1 normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def norms_all_def norms_def norms_neg_def order_le_less_trans)
  }
  moreover {
    assume "x=y"
    have ?thesis 
      using ‹x = y› assms(1) by blast
  }
  ultimately show ?thesis by blast
qed

lemma existence_of_f:
 assumes "∃x. (x∈norms_all ∧ x≠0)" (* not trivial domain *)
  shows "∃f. (bij_betw f norms {x::real. x≥0}
\<and> (∀y::real. ∀z::real. (( y∈ norms ∧
z∈ norms ∧ y>z)⟶ (f y) > (f z)))
  ∧ (∀x. ∀y. f(norm' (x ⊕ y)) ≤ (f (norm' x)) + (f (norm' y)))
\<and> (∀r::real. (∀x. (f (norm' (r ⊗ x)) = ∣r∣ * (f (norm' x))))))"
proof-
  obtain "g" where "(g_iso g ∧ (∀x.(x∈norms ⟶ (g x)≥0))
\<and> bij_betw (λx. if x ∈ norms then (g x) else undefined) norms {r::real. r≥0})"
    using  iso_with_real_positive_on_norms
    assms by blast
  let ?f = "λx. if x ∈ norms then (g x) else undefined"
  have "∀α::real. ∀β::real. ∀x. ((0 ≤ α ∧ α ≤ β) ⟶ ((otimes' α (norm' x)) ≤ (otimes' β (norm' x))))"
  proof
    fix α 
    show " ∀β::real. ∀x.((0 ≤ α ∧ α ≤ β) ⟶ ((otimes' α (norm' x)) ≤ (otimes' β (norm' x))))"
    proof
      fix β
      show " ∀x.((0 ≤ α ∧ α ≤ β) ⟶ ((otimes' α (norm' x)) ≤ (otimes' β (norm' x))))"
      proof
        fix x 
        show "((0 ≤ α ∧ α ≤ β) ⟶ ((otimes' α (norm' x)) ≤ (otimes' β (norm' x))))"
        proof
          assume "0 ≤ α ∧ α ≤ β"
          show "((otimes' α (norm' x)) ≤ (otimes' β (norm' x)))"
          proof-
            have "otimes' α (norm' x) = norm' (α ⊗ x)"
              by (metis ‹0 ≤ α ∧ α ≤ β› abs_of_nonneg normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
            moreover have " norm' (α ⊗ x) = norm' (((β+α)/2 - (β-α)/2)⊗ x)"
              by (simp add: add_divide_distrib diff_divide_distrib)
            moreover have "norm' (((β+α)/2 - (β-α)/2)⊗ x) =
            norm' (((β+α)/2) ⊗ x ⊕ (- (β-α)/2) ⊗ x )"
              by (metis add.commute divide_minus_left scale_distrib uminus_add_conv_diff)
            moreover have " norm' (((β+α)/2) ⊗ x ⊕ (- (β-α)/2) ⊗ x )
        ≤ oplus' (norm' (((β+α)/2)⊗ x)) (norm' ((-(β-α)/2) ⊗ x))"
              using  ax3
              by blast
            moreover have "-(β-α)/2 ≤0"
              by (simp add: ‹0 ≤ α ∧ α ≤ β›)
            moreover have "(β+α)/2 ≥0"
              using ‹0 ≤ α ∧ α ≤ β› by auto
            moreover have *:"(norm' (((β+α)/2)⊗ x)) =(otimes' ((β+α)/2) (norm' x))"
              by (smt (verit, ccfv_threshold) calculation(6) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
            moreover have " ∣-(β-α)/2∣ = (β-α)/2 "
              using calculation(5) by force
            moreover have **:"(norm' ((-(β-α)/2)⊗ x)) =(otimes' ((β-α)/2) (norm' x))"
              by (metis calculation(8) normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def)
            moreover have " oplus' (norm' (((β+α)/2)⊗ x)) (norm' ((-(β-α)/2) ⊗ x)) =
       oplus' (otimes' ((β+α)/2) (norm' x)) (otimes' ( (β-α)/2) (norm' x)) "
              using * **
              by presburger
            moreover have "oplus' (otimes' ((β+α)/2) (norm' x)) (otimes' ( (β-α)/2) (norm' x))
      = otimes' ((β+α)/2 + ((β-α)/2)) (norm' x)"
              by (metis Un_iff ax_space one_dim_vector_space_with_domain_def rangeI vector_space_with_domain.smult_distr_sadd)
            moreover have " otimes' ((β+α)/2 + ((β-α)/2)) (norm' x) = otimes' β (norm' x)"
              by argo
            ultimately show ?thesis 
              by linarith
          qed
        qed
      qed
    qed
  qed
  moreover have "∀α::real. ∀β::real. ∀x. ((0 < α ∧ α < β ∧ x≠gyrozero) ⟶ ((otimes' α (norm' x)) < (otimes' β (norm' x))))"
  proof -
    have f1: "∀f fa fb. normed_gyrolinear_space'' f fa fb = (((∀a. 0 ≤ f (a::'a)) ∧ one_dim_vector_space_with_domain (range f ∪ range (λa. - 1 * f a)) fa 0 fb ∧ (∀a aa. f (a ⊕ aa) ≤ fa (f a) (f aa))) ∧ (∀r a. f (r ⊗ a) = fb (if r < 0 then - r else r) (f a)) ∧ (∀a aa ab. f (gyr a aa ab) = f ab) ∧ (∀a. (f a = 0) = (a = 0_g)))"
      by (simp add: abs_if_raw normed_gyrolinear_space''_def)
    obtain rr :: "real ==> real" where
      f2: "bij_betw rr norms_all UNIV ∧ 0 = rr 0 ∧ (∀r ra. r ∈ norms_all ∧ ra ∈ norms_all ⟶ rr (oplus' r ra) = rr r + rr ra) ∧ (∀r ra. r ∈ norms_all ⟶ rr (otimes' ra r) = ra * rr r)"
      using assms iso_with_real by auto
    have "∀a. (0 = norm' a) = (0_g = a)"
      using f1 by (smt (z3) normed_gyrolinear_space''_axioms)
    then show ?thesis
      using f2 by (smt (z3) UnI2 bij_betw_inv_into_left calculation mult_right_cancel norms_all_def norms_def rangeI sup_commute)
  qed
  moreover obtain "xx0" where "xx0∈norms ∧ xx0≠0"
    using assms not_trivial_domen_has_pos by blast
  moreover obtain "x0" where "xx0 = norm' x0"
    using calculation(3) norms_def by auto
  moreover have mon:"(∀y z. y ∈ norms ∧ z ∈ norms ∧ z < y ⟶ ?f z < ?f y)"
  proof
    fix y 
    show "∀z. (y ∈ norms ∧ z ∈ norms ∧ z < y ⟶ ?f z < ?f y)"
    proof
      fix z 
      show "y ∈ norms ∧ z ∈ norms ∧ z < y ⟶ ?f z < ?f y"
      proof
        assume "y ∈norms ∧ z ∈ norms ∧ z < y"
        show "?f z < ?f y"
        proof-
          let ?alpha = "(?f y)/(?f (norm' x0))"
          let ?beta = "(?f z)/(?f (norm' x0))"
          have "otimes' ?alpha (norm' x0) = y"
            by (smt (verit, del_insts) ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› ax_space bij_betw_imp_inj_on calculation(3) calculation(4) g_iso_def in_mono inf_sup_ord(3) inj_on_def nonzero_eq_divide_eq norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) vector_space_with_domain.smult_closed vector_space_with_domain.zero_in_dom)
          moreover have "otimes' ?beta (norm' x0) = z"
            by (smt (verit, del_insts) ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› ‹xx0 = norm' x0› ‹xx0 ∈ norms ∧ xx0 ≠ 0› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› ax_space bij_betw_imp_inj_on g_iso_def inf_sup_ord(3) inj_on_def nonzero_eq_divide_eq norms_all_def norms_def norms_neg_def one_dim_vector_space_with_domain.axioms(1) subset_iff vector_space_with_domain.smult_closed vector_space_with_domain.zero_in_dom)
          moreover have "?alpha ≥ 0 ∧ ?beta ≥0"
             using ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› ‹xx0 = norm' x0› ‹xx0 ∈ norms ∧ xx0 ≠ 0› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› by auto
           moreover have "0 < ?alpha ∧ ?alpha < ?beta ⟷ 0<y ∧ y<z"
             by (smt (verit, ccfv_threshold) ‹∀α β x. 0 ≤ α ∧ α ≤ β ⟶ otimes' α (norm' x) ≤ otimes' β (norm' x)› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› calculation(1) calculation(2))
           moreover have "0<?alpha ∧ ?alpha < ?beta ⟷ 0 ≤ (?f y) ∧ (?f y) < (?f z)"
             by (smt (verit, best) ‹∀α β x. 0 ≤ α ∧ α ≤ β ⟶ otimes' α (norm' x) ≤ otimes' β (norm' x)› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› calculation(1) calculation(2) calculation(3) div_by_0 frac_less zero_le_divide_iff)
           ultimately show ?thesis
             using ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› ‹y ∈ norms ∧ z ∈ norms ∧ z < y› by auto
         qed
      qed
    qed
  qed
  moreover have " (∀x y. ?f (norm' (x ⊕ y)) ≤ ?f (norm' x) + ?f (norm' y))"
  proof
    fix x 
    show "∀y. (?f (norm' (x ⊕ y)) ≤ ?f (norm' x) + ?f (norm' y))"
    proof
      fix y
      show " (?f (norm' (x ⊕ y)) ≤ ?f (norm' x) + ?f (norm' y))"
      proof-
        have "norm' x∈norms"
          using norms_def by blast
        moreover have "norm' y ∈ norms"
          using norms_def by blast
        moreover have "norm' (x ⊕ y)∈ norms"
          using norms_def by blast
        moreover have "norm' (x ⊕ y) ≤ oplus' (norm' x) (norm' y)"
          using ax3 by blast
        moreover have "(?f (norm' (x ⊕ y))) ≤ (?f (oplus' (norm' x) (norm' y)))"
        proof-
          have "norm' (x ⊕ y) ≤ oplus' (norm' x) (norm' y) ∨ norm' (x ⊕ y) = oplus' (norm' x) (norm' y)"
            using calculation(4) by blast
          moreover {
            assume st1:"norm' (x ⊕ y) < oplus' (norm' x) (norm' y)"
            have "norm' x ∈ norms"
              using norms_def by blast
            moreover have "norm' y ∈ norms"
              using norms_def by blast
            moreover have "vector_space_with_domain norms_all oplus' 0 otimes'"
              using ax_space norms_def 
              one_dim_vector_space_with_domain_def
              by (metis norms_all_def norms_neg_def)
            moreover have "oplus' (norm' x) (norm' y) ∈ norms_all"
              by (metis Un_iff calculation(1) calculation(2) calculation(3) norms_all_def vector_space_with_domain.add_closed)
            moreover have st2:"norm' (x ⊕ y)∈ norms"
              by (simp add: ‹norm' (x ⊕ y) ∈ norms›)
            moreover have st3:"oplus' (norm' x) (norm' y) ∈ norms"  
              using ax3 calculation(4) comparing_norms_help st2 by blast
            
moreover have "(?f (norm' (x ⊕ y))) < (?f (oplus' (norm' x) (norm' y)))"
              using mon st1 st2 st3
              by blast
            ultimately have ?thesis 
              by linarith
          }
          moreover {
              assume "norm' (x ⊕ y) = oplus' (norm' x) (norm' y)"
              then have ?thesis 
                by auto
            }
            ultimately show ?thesis
              by fastforce
        qed 
        moreover have " (?f (oplus' (norm' x) (norm' y))) = (?f (norm' x)) + (?f (norm' y))"
        proof-
          have f1:"norm' (x ⊕ y) ≤ oplus' (norm' x) (norm' y)"
            using ax3 by blast
          moreover have f2:"norm' (x ⊕ y) ∈ norms"
            by (simp add: ‹norm' (x ⊕ y) ∈ norms›)
          moreover have f3:"vector_space_with_domain norms_all oplus' 0 otimes'"
              using ax_space norms_def 
              one_dim_vector_space_with_domain_def
              by (metis norms_all_def norms_neg_def)
          moreover have "oplus' (norm' x) (norm' y)∈ norms"
              by (metis UnI1 ‹norm' x ∈ norms› ‹norm' y ∈ norms› f1 f2 f3 normed_gyrolinear_space''.comparing_norms_help normed_gyrolinear_space''_axioms norms_all_def vector_space_with_domain.add_closed)
            ultimately show ?thesis 
              using ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› ‹norm' x ∈ norms› ‹norm' y ∈ norms› g_iso_def norms_all_def by force
          qed
          ultimately show ?thesis 
            by force
      qed
    qed
  qed

  moreover have "(∀r::real. (∀x. (?f (norm' (r ⊗ x)) = ∣r∣ * (?f (norm' x)))))"
    by (smt (verit, ccfv_SIG) Un_iff ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› g_iso_def normed_gyrolinear_space''_axioms normed_gyrolinear_space''_def norms_all_def norms_def rangeI)

  ultimately show ?thesis
    using ‹g_iso g ∧ (∀x. x ∈ norms ⟶ 0 ≤ g x) ∧ bij_betw (λx. if x ∈ norms then g x else undefined) norms {r. 0 ≤ r}› by blast
qed



end



end