Skip to content

Commit

Permalink
Use Isabelle2024-RC2.
Browse files Browse the repository at this point in the history
Signed-off-by: Karolis Petrauskas <[email protected]>
  • Loading branch information
kape1395 committed Apr 18, 2024
1 parent f535384 commit 376b459
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 7 deletions.
2 changes: 1 addition & 1 deletion deps/isabelle/Makefile
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
OS_TYPE=$(patsubst CYGWIN%,Cygwin,$(shell uname))
HOST_CPU=$(shell uname -m)

ISABELLE_VSN=Isabelle2023
ISABELLE_VSN=Isabelle2024-RC2

ifeq ($(OS_TYPE),Linux)
ISABELLE_ARCHIVE=$(ISABELLE_VSN)_linux.tar.gz
Expand Down
16 changes: 10 additions & 6 deletions isabelle/PredicateLogic.thy
Original file line number Diff line number Diff line change
Expand Up @@ -1428,15 +1428,18 @@ ML \<open>
declaration \<open>
fn _ => Induct.map_simpset (fn ss => ss
addsimprocs
[Simplifier.make_simproc @{context} "swap_cases_false"
{lhss = [@{term "cases_false \<Longrightarrow> PROP P \<Longrightarrow> PROP Q"}],
[Simplifier.make_simproc @{context}
{name = "swap_cases_false",
lhss = [@{term "cases_false \<Longrightarrow> PROP P \<Longrightarrow> PROP Q"}],
proc = fn _ => fn _ => fn ct =>
(case Thm.term_of ct of
_ $ (P as _ $ @{const cases_false}) $ (_ $ Q $ _) =>
if P <> Q then SOME Drule.swap_prems_eq else NONE
| _ => NONE)},
Simplifier.make_simproc @{context} "cases_equal_conj_curry"
{lhss = [@{term "cases_conj(P, Q) \<Longrightarrow> PROP R"}],
| _ => NONE),
identifier = []},
Simplifier.make_simproc @{context}
{name = "cases_equal_conj_curry",
lhss = [@{term "cases_conj(P, Q) \<Longrightarrow> PROP R"}],
proc = fn _ => fn _ => fn ct =>
(case Thm.term_of ct of
_ $ (_ $ P) $ _ =>
Expand All @@ -1448,7 +1451,8 @@ declaration \<open>
| is_conj @{const cases_false} = true
| is_conj _ = false
in if is_conj P then SOME @{thm cases_conj_curry} else NONE end
| _ => NONE)}]
| _ => NONE),
identifier = []}]
|> Simplifier.set_mksimps (fn ctxt =>
Simpdata.mksimps Simpdata.mksimps_pairs ctxt #>
map (rewrite_rule ctxt (map Thm.symmetric @{thms cases_rulify_fallback}))))
Expand Down

0 comments on commit 376b459

Please sign in to comment.