diff options
| author | filliatr | 1999-12-03 09:09:37 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-03 09:09:37 +0000 |
| commit | f20dbafa3e49c35414640e01c3549ad1c802d331 (patch) | |
| tree | 761e97154851e214a6d6802c9decb977bfa1b07e /proofs | |
| parent | 4318eefacae280fed3a159acfede35c568b2942b (diff) | |
- global_reference traite des variables
- construct_reference, avec environnement en argument
- link de Class
- Definition et Check au toplevel
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@193 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 49315aba7c..446d70b437 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -78,7 +78,7 @@ let pf_constr_of_com_sort gls c = let evc = project gls in Astterm.constr_of_com_sort evc (sig_it gls).evar_env c -let pf_global gls id = Declare.global (sig_it gls).evar_env id +let pf_global gls id = Declare.construct_reference (sig_it gls).evar_env CCI id let pf_parse_const gls = compose (pf_global gls) id_of_string let pf_execute gls = |