diff options
| author | stuebinm | 2022-06-29 01:14:51 +0200 |
|---|---|---|
| committer | stuebinm | 2022-06-29 01:23:31 +0200 |
| commit | cb4139dc35527bd8c8f9b70753c3d1f552c5f19d (patch) | |
| tree | 8e5709039197ad6d72d8b38235a982bf687e2608 /mltt/core/focus.ML | |
| parent | 5655750e12d3459c1237588f8dec3fc883a966b7 (diff) | |
make mltt work with isabelle 2021-1
notably, this modifies the proof method `this`: the previous version
of it no longer works with cconv.ML (borrowed from HOL), so now it's
just a call to the simplifier, which does work.
Unfortunately the new `this` can otherwise do less than the old one
(it does not instantiate schematic variables), so the old one is now
available as `infer` instead.
Diffstat (limited to 'mltt/core/focus.ML')
| -rw-r--r-- | mltt/core/focus.ML | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mltt/core/focus.ML b/mltt/core/focus.ML index b963cfe..ac4de08 100644 --- a/mltt/core/focus.ML +++ b/mltt/core/focus.ML @@ -36,7 +36,7 @@ fun gen_focus ctxt i bindings raw_st = |> apfst rev |> apsnd reverse_prems val (inst, ctxt3) = Variable.import_inst true (map Thm.term_of (asms')) ctxt2 - val schematic_terms = map (apsnd (Thm.cterm_of ctxt3)) (#2 inst) + val schematic_terms = Vars.map (fn _ => fn b => Thm.cterm_of ctxt3 b) (#2 inst) val schematics = (schematic_types, schematic_terms) val asms' = map (Thm.instantiate_cterm schematics) asms' val concl' = Thm.instantiate_cterm schematics concl' |