diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-22 15:36:58 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-22 15:36:58 +0000 |
commit | 10961655cb9c09da20cfe2ecc68def3d3b7d1bb5 (patch) | |
tree | fe435d1bd014a15e0b430cac8d7fb6bddc75f5e3 /contrib/subtac/g_eterm.ml4 | |
parent | 8291c83620312550d1ccbe9a304fd43f35724b12 (diff) |
Made pretyping a functor over a coercion implementation. Pretyping.Default uses the original Coercion implementation.
Updated contributions that called pretyping to use the default impl.
Also update subtac using the functor, do some renamings and add interfaces for all files.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8654 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/g_eterm.ml4')
-rw-r--r-- | contrib/subtac/g_eterm.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/g_eterm.ml4 b/contrib/subtac/g_eterm.ml4 index f43521993..095e5fafc 100644 --- a/contrib/subtac/g_eterm.ml4 +++ b/contrib/subtac/g_eterm.ml4 @@ -23,5 +23,5 @@ TACTIC EXTEND eterm [ "eterm" ] -> [ (fun gl -> let evm = Tacmach.project gl and t = Tacmach.pf_concl gl in - Eterm.etermtac (Global.env ()) (evm, t) gl) ] + Eterm.etermtac (evm, t) gl) ] END |