aboutsummaryrefslogtreecommitdiff
path: root/spartan/core/tactics.ML
diff options
context:
space:
mode:
authorJosh Chen2020-08-09 18:34:58 +0200
committerJosh Chen2020-08-09 18:34:58 +0200
commit8f4ff41d24dd8fa6844312456d47cad4be6cb239 (patch)
tree05cb7780daead07c4714daa7e1fc19c940283b02 /spartan/core/tactics.ML
parentc530305cbcafba9f66f1a55a1b5177a62f52535c (diff)
(FEAT) Clean up typechecking/elaboration tactic: known_ctac should *solve* goals; resolving with conditional typing judgments (e.g. type family assumptions) is part of check_infer_step
Diffstat (limited to 'spartan/core/tactics.ML')
-rw-r--r--spartan/core/tactics.ML4
1 files changed, 2 insertions, 2 deletions
diff --git a/spartan/core/tactics.ML b/spartan/core/tactics.ML
index 446af15..45fd119 100644
--- a/spartan/core/tactics.ML
+++ b/spartan/core/tactics.ML
@@ -82,8 +82,8 @@ fun internalize_fact_tac t =
Drule.infer_instantiate' ctxt [NONE, NONE, SOME B, SOME a] @{thm PiE}
in
HEADGOAL (resolve_tac ctxt [resolvent])
- (*known_tac infers the correct type T inferred by unification*)
- THEN SOMEGOAL (NO_CONTEXT_TACTIC ctxt o Types.known_ctac [])
+ (*Infer the correct type T*)
+ THEN SOMEGOAL (NO_CONTEXT_TACTIC ctxt o Types.check_infer [])
end)
fun elim_core_tac tms types ctxt =