diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
| commit | dc1f525d12219a43648c449f034fb319bc6c1e7a (patch) | |
| tree | f80b2aee7b517f9987dba10f745a8fa1242e435d /checker/modops.ml | |
| parent | 95dcebe76caf6a93289e484995760ec94111c7c8 (diff) | |
porting r11900 11905 and 11953 to trunk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11954 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/modops.ml')
| -rw-r--r-- | checker/modops.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/checker/modops.ml b/checker/modops.ml index 27ea4d55b..498bd7753 100644 --- a/checker/modops.ml +++ b/checker/modops.ml @@ -125,6 +125,7 @@ let strengthen_mind env mp l mib = match mib.mind_equiv with let rec eval_struct env = function | SEBident mp -> begin + let mp = scrape_alias mp env in let mtb =lookup_modtype mp env in match mtb.typ_expr,mtb.typ_strength with mtb,None -> eval_struct env mtb |