neuper@37906
|
1 |
(*. (c) by Richard Lang, 2003 .*)
|
neuper@37906
|
2 |
(* theory collecting all knowledge for LinearEquations
|
neuper@37906
|
3 |
created by: rlang
|
neuper@37906
|
4 |
date: 02.10
|
neuper@37906
|
5 |
changed by: rlang
|
neuper@37906
|
6 |
last change by: rlang
|
neuper@37906
|
7 |
date: 02.10.20
|
neuper@37906
|
8 |
*)
|
neuper@37906
|
9 |
|
neuper@37950
|
10 |
theory LinEq imports Poly Equation begin
|
neuper@37906
|
11 |
|
neuper@52148
|
12 |
axiomatization where
|
wneuper@59370
|
13 |
(*-- normalise --*)
|
neuper@37906
|
14 |
(*WN0509 compare PolyEq.all_left "[|Not(b=!=0)|] ==> (a = b) = (a - b = 0)"*)
|
neuper@52148
|
15 |
all_left: "[|Not(b=!=0)|] ==> (a=b) = (a+(-1)*b=0)" and
|
walther@60242
|
16 |
makex1_x: "a \<up> 1 = a" and
|
neuper@52148
|
17 |
real_assoc_1: "a+(b+c) = a+b+c" and
|
neuper@52148
|
18 |
real_assoc_2: "a*(b*c) = a*b*c" and
|
neuper@37906
|
19 |
|
neuper@37906
|
20 |
(*-- solve --*)
|
neuper@52148
|
21 |
lin_isolate_add1: "(a + b*bdv = 0) = (b*bdv = (-1)*a)" and
|
neuper@52148
|
22 |
lin_isolate_add2: "(a + bdv = 0) = ( bdv = (-1)*a)" and
|
neuper@37982
|
23 |
lin_isolate_div: "[|Not(b=0)|] ==> (b*bdv = c) = (bdv = c / b)"
|
neuper@37950
|
24 |
|
wneuper@59472
|
25 |
ML \<open>
|
neuper@37950
|
26 |
val LinEq_prls = (*3.10.02:just the following order due to subterm evaluation*)
|
walther@60358
|
27 |
Rule_Set.append_rules "LinEq_prls" Rule_Set.empty [
|
walther@60358
|
28 |
\<^rule_eval>\<open>HOL.eq\<close> (Prog_Expr.eval_equal "#equal_"),
|
walther@60358
|
29 |
\<^rule_eval>\<open>Prog_Expr.matches\<close> (Prog_Expr.eval_matches ""),
|
walther@60358
|
30 |
\<^rule_eval>\<open>Prog_Expr.lhs\<close> (Prog_Expr.eval_lhs ""),
|
walther@60358
|
31 |
\<^rule_eval>\<open>Prog_Expr.rhs\<close> (Prog_Expr.eval_rhs ""),
|
walther@60358
|
32 |
\<^rule_eval>\<open>has_degree_in\<close> (eval_has_degree_in ""),
|
walther@60358
|
33 |
\<^rule_eval>\<open>is_polyrat_in\<close> (eval_is_polyrat_in ""),
|
walther@60358
|
34 |
\<^rule_eval>\<open>Prog_Expr.occurs_in\<close> (Prog_Expr.eval_occurs_in ""),
|
walther@60358
|
35 |
\<^rule_eval>\<open>Prog_Expr.ident\<close> (Prog_Expr.eval_ident "#ident_"),
|
walther@60358
|
36 |
\<^rule_thm>\<open>not_true\<close>,
|
walther@60358
|
37 |
\<^rule_thm>\<open>not_false\<close>,
|
walther@60358
|
38 |
\<^rule_thm>\<open>and_true\<close>,
|
walther@60358
|
39 |
\<^rule_thm>\<open>and_false\<close>,
|
walther@60358
|
40 |
\<^rule_thm>\<open>or_true\<close>,
|
walther@60358
|
41 |
\<^rule_thm>\<open>or_false\<close>];
|
neuper@37950
|
42 |
(* ----- erls ----- *)
|
neuper@37950
|
43 |
val LinEq_crls =
|
walther@59852
|
44 |
Rule_Set.append_rules "LinEq_crls" poly_crls
|
wenzelm@60297
|
45 |
[\<^rule_thm>\<open>real_assoc_1\<close>
|
neuper@37950
|
46 |
(*
|
neuper@37950
|
47 |
Don't use
|
wenzelm@60294
|
48 |
\<^rule_eval>\<open>divide\<close> (Prog_Expr.eval_cancel "#divide_e"),
|
wenzelm@60405
|
49 |
\<^rule_eval>\<open>realpow\<close> (**)(eval_binop "#power_"),
|
neuper@37950
|
50 |
*)
|
neuper@37950
|
51 |
];
|
neuper@37950
|
52 |
|
neuper@37950
|
53 |
(* ----- crls ----- *)
|
neuper@37950
|
54 |
val LinEq_erls =
|
walther@60358
|
55 |
Rule_Set.append_rules "LinEq_erls" Poly_erls [
|
walther@60358
|
56 |
\<^rule_thm>\<open>real_assoc_1\<close>
|
neuper@37950
|
57 |
(*
|
neuper@37950
|
58 |
Don't use
|
wenzelm@60294
|
59 |
\<^rule_eval>\<open>divide\<close> (Prog_Expr.eval_cancel "#divide_e"),
|
wenzelm@60405
|
60 |
\<^rule_eval>\<open>realpow\<close> (**)(eval_binop "#power_"),
|
neuper@37950
|
61 |
*)
|
neuper@37950
|
62 |
];
|
wneuper@59472
|
63 |
\<close>
|
wenzelm@60289
|
64 |
rule_set_knowledge LinEq_erls = LinEq_erls
|
wneuper@59472
|
65 |
ML \<open>
|
neuper@37950
|
66 |
|
s1210629013@55444
|
67 |
val LinPoly_simplify = prep_rls'(
|
walther@59851
|
68 |
Rule_Def.Repeat {id = "LinPoly_simplify", preconds = [],
|
walther@60358
|
69 |
rew_ord = ("termlessI",termlessI),
|
walther@60358
|
70 |
erls = LinEq_erls,
|
walther@60358
|
71 |
srls = Rule_Set.Empty,
|
walther@60358
|
72 |
calc = [], errpatts = [],
|
walther@60358
|
73 |
rules = [
|
walther@60358
|
74 |
\<^rule_thm>\<open>real_assoc_1\<close>,
|
walther@60358
|
75 |
\<^rule_eval>\<open>plus\<close> (**)(eval_binop "#add_"),
|
walther@60358
|
76 |
\<^rule_eval>\<open>minus\<close> (**)(eval_binop "#sub_"),
|
walther@60358
|
77 |
\<^rule_eval>\<open>times\<close> (**)(eval_binop "#mult_"),
|
walther@60358
|
78 |
(* Don't use
|
walther@60358
|
79 |
\<^rule_eval>\<open>divide\<close> (Prog_Expr.eval_cancel "#divide_e"),
|
walther@60358
|
80 |
\<^rule_eval>\<open>sqrt\<close> (eval_sqrt "#sqrt_"),
|
walther@60358
|
81 |
*)
|
wenzelm@60405
|
82 |
\<^rule_eval>\<open>realpow\<close> (**)(eval_binop "#power_")],
|
walther@60358
|
83 |
scr = Rule.Empty_Prog});
|
wneuper@59472
|
84 |
\<close>
|
wenzelm@60289
|
85 |
rule_set_knowledge LinPoly_simplify = LinPoly_simplify
|
wneuper@59472
|
86 |
ML \<open>
|
neuper@37950
|
87 |
|
neuper@37950
|
88 |
(*isolate the bound variable in an linear equation; 'bdv' is a meta-constant*)
|
s1210629013@55444
|
89 |
val LinEq_simplify = prep_rls'(
|
walther@60358
|
90 |
Rule_Def.Repeat {id = "LinEq_simplify", preconds = [],
|
walther@60358
|
91 |
rew_ord = ("e_rew_ord", Rewrite_Ord.e_rew_ord),
|
walther@60358
|
92 |
erls = LinEq_erls,
|
walther@60358
|
93 |
srls = Rule_Set.Empty,
|
walther@60358
|
94 |
calc = [], errpatts = [],
|
walther@60358
|
95 |
rules = [
|
walther@60358
|
96 |
\<^rule_thm>\<open>lin_isolate_add1\<close>, (* a+bx=0 -> bx=-a *)
|
walther@60358
|
97 |
\<^rule_thm>\<open>lin_isolate_add2\<close>, (* a+ x=0 -> x=-a *)
|
walther@60358
|
98 |
\<^rule_thm>\<open>lin_isolate_div\<close> (* bx=c -> x=c/b *)],
|
walther@60358
|
99 |
scr = Rule.Empty_Prog});
|
wneuper@59472
|
100 |
\<close>
|
wenzelm@60289
|
101 |
rule_set_knowledge LinEq_simplify = LinEq_simplify
|
neuper@37950
|
102 |
|
wenzelm@60306
|
103 |
(*----------------------------- problems --------------------------------*)
|
neuper@37950
|
104 |
(* ---------linear----------- *)
|
wenzelm@60306
|
105 |
|
wenzelm@60306
|
106 |
problem pbl_equ_univ_lin : "LINEAR/univariate/equation" =
|
wenzelm@60306
|
107 |
\<open>LinEq_prls\<close>
|
wenzelm@60306
|
108 |
Method: "LinEq/solve_lineq_equation"
|
wenzelm@60306
|
109 |
CAS: "solve (e_e::bool, v_v)"
|
wenzelm@60306
|
110 |
Given: "equality e_e" "solveFor v_v"
|
wenzelm@60306
|
111 |
Where: "HOL.False" (*WN0509 just detected: this pbl can never be used?!?*)
|
wenzelm@60306
|
112 |
"Not( (lhs e_e) is_polyrat_in v_v)"
|
wenzelm@60306
|
113 |
"Not( (rhs e_e) is_polyrat_in v_v)"
|
wenzelm@60306
|
114 |
"((lhs e_e) has_degree_in v_v)=1"
|
wenzelm@60306
|
115 |
"((rhs e_e) has_degree_in v_v)=1"
|
wenzelm@60306
|
116 |
Find: "solutions v_v'i'"
|
neuper@37950
|
117 |
|
s1210629013@55373
|
118 |
(*-------------- methods------------------------------------------------------*)
|
wenzelm@60303
|
119 |
method met_eqlin : "LinEq" =
|
wenzelm@60303
|
120 |
\<open>{rew_ord' = "tless_true",rls' = Atools_erls,calc = [], srls = Rule_Set.empty, prls = Rule_Set.empty,
|
wenzelm@60303
|
121 |
crls = LinEq_crls, errpats = [], nrls = norm_Poly}\<close>
|
walther@59997
|
122 |
(* ansprechen mit ["LinEq", "solve_univar_equation"] *)
|
wneuper@59545
|
123 |
|
wneuper@59504
|
124 |
partial_function (tailrec) solve_linear_equation :: "bool \<Rightarrow> real \<Rightarrow> bool list"
|
wneuper@59504
|
125 |
where
|
walther@59635
|
126 |
"solve_linear_equation e_e v_v = (
|
walther@59635
|
127 |
let
|
walther@59635
|
128 |
e_e = (
|
walther@59637
|
129 |
(Try (Rewrite ''all_left'')) #>
|
walther@59637
|
130 |
(Try (Repeat (Rewrite ''makex1_x''))) #>
|
walther@59637
|
131 |
(Try (Rewrite_Set ''expand_binoms'')) #>
|
walther@59637
|
132 |
(Try (Repeat (Rewrite_Set_Inst [(''bdv'', v_v)] ''make_ratpoly_in''))) #>
|
walther@59635
|
133 |
(Try (Repeat (Rewrite_Set ''LinPoly_simplify''))) ) e_e;
|
walther@59635
|
134 |
e_e = (
|
walther@59637
|
135 |
(Try (Rewrite_Set_Inst [(''bdv'', v_v)] ''LinEq_simplify'')) #>
|
walther@59635
|
136 |
(Repeat (Try (Rewrite_Set ''LinPoly_simplify''))) ) e_e
|
walther@59635
|
137 |
in
|
walther@59635
|
138 |
Or_to_List e_e)"
|
wenzelm@60303
|
139 |
|
wenzelm@60303
|
140 |
method met_eq_lin : "LinEq/solve_lineq_equation" =
|
wenzelm@60303
|
141 |
\<open>{rew_ord' = "termlessI", rls' = LinEq_erls, srls = Rule_Set.empty, prls = LinEq_prls, calc = [],
|
wenzelm@60303
|
142 |
crls = LinEq_crls, errpats = [], nrls = norm_Poly}\<close>
|
wenzelm@60303
|
143 |
Program: solve_linear_equation.simps
|
wenzelm@60303
|
144 |
Given: "equality e_e" "solveFor v_v"
|
wenzelm@60303
|
145 |
Where: "Not ((lhs e_e) is_polyrat_in v_v)" "((lhs e_e) has_degree_in v_v) = 1"
|
wenzelm@60303
|
146 |
Find: "solutions v_v'i'"
|
wenzelm@60303
|
147 |
|
walther@60278
|
148 |
ML \<open>
|
walther@60278
|
149 |
MethodC.from_store' @{theory} ["LinEq", "solve_lineq_equation"];
|
walther@60278
|
150 |
\<close> ML \<open>
|
walther@60278
|
151 |
\<close> ML \<open>
|
walther@60278
|
152 |
\<close>
|
neuper@37950
|
153 |
|
neuper@37906
|
154 |
end
|
neuper@37906
|
155 |
|