diff options
author | 2013-11-14 15:21:36 +0000 | |
---|---|---|
committer | 2013-11-14 15:21:36 +0000 | |
commit | 9e8f49b1fd4d08808a5f708e09aa51a43e4ceee7 (patch) | |
tree | b02aa0e7db3c412862b9c0c5483b00e5ae775cd5 | |
parent | 8d6ab692ded32f861bef6c4f69cc91e19d98ccb4 (diff) |
Remove some dead code in tacinterp.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17087 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | tactics/tacinterp.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 1ad8b0505..a2c461731 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -953,15 +953,6 @@ let verify_metas_coherence gl (ln1,lcm) (ln,lm) = let adjust (l, lc) = (l, Id.Map.map (fun c -> [], c) lc) - -(* spiwack: a small wrapper around the [Matching] module *) - -type 'a _matching_result = - { s_sub : bound_ident_map * patvar_map ; - s_ctx : 'a ; - s_nxt : 'a matching_result } -and 'a matching_result = 'a _matching_result Proofview.glist Proofview.tactic - type 'a _extended_matching_result = { e_ctx : 'a; e_sub : bound_ident_map * extended_patvar_map; } |