src/HOL/Multivariate_Analysis/Euclidean_Space.thy
changeset 61169 4de9ff3ea29a
parent 60974 6a6f15d8fbc4
child 62390 842917225d56
equal deleted inserted replaced
61168:dcdfb6355a05 61169:4de9ff3ea29a
   137 
   137 
   138 definition 
   138 definition 
   139   [simp]: "Basis = {1::real}"
   139   [simp]: "Basis = {1::real}"
   140 
   140 
   141 instance
   141 instance
   142   by default auto
   142   by standard auto
   143 
   143 
   144 end
   144 end
   145 
   145 
   146 lemma DIM_real[simp]: "DIM(real) = 1"
   146 lemma DIM_real[simp]: "DIM(real) = 1"
   147   by simp
   147   by simp
   153 
   153 
   154 definition Basis_complex_def:
   154 definition Basis_complex_def:
   155   "Basis = {1, ii}"
   155   "Basis = {1, ii}"
   156 
   156 
   157 instance
   157 instance
   158   by default (auto simp add: Basis_complex_def intro: complex_eqI split: split_if_asm)
   158   by standard (auto simp add: Basis_complex_def intro: complex_eqI split: split_if_asm)
   159 
   159 
   160 end
   160 end
   161 
   161 
   162 lemma DIM_complex[simp]: "DIM(complex) = 2"
   162 lemma DIM_complex[simp]: "DIM(complex) = 2"
   163   unfolding Basis_complex_def by simp
   163   unfolding Basis_complex_def by simp