Isabelle_DOF
/
Isabelle_DOF
1
0
Fork 2
Code Issues 1 Pull Requests Releases Wiki Activity

Some fixes and improvements for proof support

This commit is contained in:
Simon Foster 2020-03-13 12:06:57 +00:00
parent 6feaeee050
commit 1e31cbb8a1
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/SI/ISQ_Proof.thy
View File

@ -64,7 +64,7 @@ lemma magQuant_numeral [si_eq]: "\<lbrakk>numeral n\<rbrakk>\<^sub>Q = numeral n
text \<open> The following tactic breaks an SI conjecture down to numeric and unit properties \<close> text \<open> The following tactic breaks an SI conjecture down to numeric and unit properties \<close>
method si_simp uses add = method si_simp uses add =
(simp add: add si_transfer si_eq) (simp add: add si_transfer si_eq field_simps)
text \<open> The next tactic additionally compiles the semantics of the underlying units \<close> text \<open> The next tactic additionally compiles the semantics of the underlying units \<close>

8
src/SI/SI_Imperial.thy
View File

@ -4,7 +4,7 @@ theory SI_Imperial
imports SI_Accepted imports SI_Accepted
begin begin
subsection \<open> Definition \<close> subsection \<open> Definitions \<close>
default_sort field_char_0 default_sort field_char_0
@ -28,7 +28,7 @@ definition mile :: "'a[L]" where
default_sort type default_sort type
subsection \<open> Properties \<close> subsection \<open> Unit Equations \<close>
lemma miles_to_yards: "mile = 1760 \<odot> yard" lemma miles_to_yards: "mile = 1760 \<odot> yard"
by si_simp by si_simp
@ -39,7 +39,7 @@ lemma miles_to_feet: "mile = 5280 \<odot> foot"
lemma mph_to_kmh: "1 \<odot> (mile \<^bold>/ hour) = 1.609344 \<odot> ((kilo \<odot> meter) \<^bold>/ hour)" lemma mph_to_kmh: "1 \<odot> (mile \<^bold>/ hour) = 1.609344 \<odot> ((kilo \<odot> meter) \<^bold>/ hour)"
by si_simp by si_simp
lemma celcius_to_farenheit: "(T::rat)\<degree>C = ((T - 32) \<cdot> 5/9)\<degree>F" lemma farenheit_to_celcius: "T\<degree>F = ((T - 32) \<cdot> 5/9)\<degree>C"
oops by si_simp
end end

2
src/SI/SI_Units.thy
View File

@ -1,7 +1,7 @@
section \<open> SI Units \<close> section \<open> SI Units \<close>
theory SI_Units theory SI_Units
imports SI_Proof imports ISQ_Proof
begin begin
lift_definition mk_base_unit :: "'u itself \<Rightarrow> ('a::one)['u::dim_type]" lift_definition mk_base_unit :: "'u itself \<Rightarrow> ('a::one)['u::dim_type]"