nicolas.meric
/
Isabelle_DOF
forked from Isabelle_DOF/Isabelle_DOF
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of https://git.logicalhacking.com/Isabelle_DOF/Isabelle_DOF

This commit is contained in:
Burkhart Wolff 2020-05-19 17:32:31 +02:00
parent 9b0c2cdcd8 1839afa883
commit 3c6eda2cbb
2 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/SI/ISQ_Dimensions.thy
View File

@ -116,7 +116,6 @@ proof
by (simp add: divide_Dimension_ext_def)
qed
text \<open> A base dimension is a dimension where precisely one component has power 1: it is the
dimension of a base quantity. Here we define the seven base dimensions. \<close>

53
src/SI/ISQ_Quantities.thy
View File

@ -349,4 +349,57 @@ end
instance QuantT :: (linorder,dim_type) linorder
by (intro_classes, transfer, auto)
instantiation QuantT :: (scaleR,dim_type) scaleR
begin
lift_definition scaleR_QuantT :: "real \<Rightarrow> 'a['b] \<Rightarrow> 'a['b]"
is "\<lambda> n q. \<lparr> mag = n *\<^sub>R mag q, dim = dim q \<rparr>" by (simp)
instance ..
end
instance QuantT :: (real_vector,dim_type) real_vector
by (intro_classes, (transfer, simp add: scaleR_add_left scaleR_add_right)+)
instantiation QuantT :: (norm,dim_type) norm
begin
lift_definition norm_QuantT :: "'a['b] \<Rightarrow> real"
is "\<lambda> x. norm (mag x)" .
instance ..
end
instantiation QuantT :: (sgn_div_norm,dim_type) sgn_div_norm
begin
definition sgn_QuantT :: "'a['b] \<Rightarrow> 'a['b]" where
"sgn_QuantT x = x /\<^sub>R norm x"
instance by (intro_classes, simp add: sgn_QuantT_def)
end
instantiation QuantT :: (dist_norm,dim_type) dist_norm
begin
definition dist_QuantT :: "'a['b] \<Rightarrow> 'a['b] \<Rightarrow> real" where
"dist_QuantT x y = norm (x - y)"
instance
by (intro_classes, simp add: dist_QuantT_def)
end
instantiation QuantT :: ("{uniformity_dist,dist_norm}",dim_type) uniformity_dist
begin
definition uniformity_QuantT :: "('a['b] \<times> 'a['b]) filter" where
"uniformity_QuantT = (INF e\<in>{0 <..}. principal {(x, y). dist x y < e})"
instance
by (intro_classes, simp add: uniformity_QuantT_def)
end
instantiation QuantT :: ("{dist_norm,open_uniformity,uniformity_dist}",dim_type) open_uniformity
begin
definition open_QuantT :: "('a['b]) set \<Rightarrow> bool" where
"open_QuantT U = (\<forall>x\<in>U. eventually (\<lambda>(x', y). x' = x \<longrightarrow> y \<in> U) uniformity)"
instance by (intro_classes, simp add: open_QuantT_def)
end
text \<open> Quantities form a real normed vector space. \<close>
instance QuantT :: (real_normed_vector,dim_type) real_normed_vector
by (intro_classes; transfer, auto simp add: norm_triangle_ineq)
end