diff options
| author | filliatr | 2000-04-21 22:09:59 +0000 |
|---|---|---|
| committer | filliatr | 2000-04-21 22:09:59 +0000 |
| commit | 99cda3324ad90fc77e810f0412f44bf81df99371 (patch) | |
| tree | 439229d94716529e073cc429d6ae467dca1e5e3c /toplevel | |
| parent | c5471cf03d2d6aa2ba6ed9e2ce015aab1e45f536 (diff) | |
discharge des axiomes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@366 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 8de338b404..aa1e1e96b8 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -277,8 +277,8 @@ let process_object oldenv sec_sp (ops,ids_to_discard,work_alist) (sp,lobj) = (Variable (id,expmod_a,stre,sticky) :: ops, ids_to_discard,work_alist) - | "CONSTANT" -> - let stre = constant_strength sp in + | "CONSTANT" | "PARAMETER" -> + let stre = constant_or_parameter_strength sp in if stre = (DischargeAt sec_sp) then (ops, ids_to_discard, (Const sp, DO_REPLACE) :: work_alist) else |