diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-12 15:32:38 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-13 19:12:34 +0200 |
commit | 267d7a63e9c24573226d0890bedb783f10dcb235 (patch) | |
tree | 9086f77abd7a96d89d9b9e9272ac4aa87f256223 /proofs/goal.ml | |
parent | 9632987e1eb0b035c760ab293e785c752d5eac92 (diff) |
Adding a tactic which fails if one of the goals under focus is dependent in another one.
Diffstat (limited to 'proofs/goal.ml')
-rw-r--r-- | proofs/goal.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 631c2428e..4a1b6bfc0 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -35,6 +35,8 @@ let pr_goal {content = e} = str "GOAL:" ++ Pp.int (Evar.repr e) let goal_ident sigma {content = e} = Evd.evar_ident e sigma +let dependent_goal_ident sigma {content = e} = Evd.dependent_evar_ident e sigma + (* access primitive *) (* invariant : [e] must exist in [em] *) let content evars { content = e } = Evd.find evars e |