diff options
author | Josh Chen | 2020-08-14 11:21:59 +0200 |
---|---|---|
committer | Josh Chen | 2020-08-14 11:21:59 +0200 |
commit | d172f9d35a9a1680ec15e4c61e5becbbc92d2ce7 (patch) | |
tree | cb00a53ba7d07ece8a4952e18319499bb9da7280 /spartan/core/tactics.ML | |
parent | 7a53528cdd91511d3c4e461b3af75ee88afee981 (diff) |
reorganize
Diffstat (limited to '')
-rw-r--r-- | spartan/core/tactics.ML | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/spartan/core/tactics.ML b/spartan/core/tactics.ML index 0c46ef0..923a3a7 100644 --- a/spartan/core/tactics.ML +++ b/spartan/core/tactics.ML @@ -111,7 +111,7 @@ fun elim_ctac tms = [] => CONTEXT_TACTIC' (fn ctxt => eresolve_tac ctxt (map #1 (Elim.rules ctxt))) | major :: _ => CONTEXT_SUBGOAL (fn (goal, _) => fn cst as (ctxt, st) => let - val facts = map Thm.prop_of (Types.known ctxt) + val facts = map Thm.prop_of (Context_Facts.known ctxt) val prems = Logic.strip_assums_hyp goal val template = Lib.typing_of_term major val types = filter (fn th => Term.could_unify (template, th)) (facts @ prems) |