diff options
| author |  Stephane Glondu <steph@glondu.net> | 2009-02-19 13:13:20 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2009-02-19 13:13:20 +0100 |
| commit | 2155252cd74c3a2d0dc0bde716ef70b1f86b8085 (patch) | |
| tree | 20313deb80e22ea9088f1e6ba0bb9336f3718b25 /checker/modops.ml | |
| parent | 06746919eadeeb430bfb464d83847f982ea78540 (diff) | |
| parent | a0a94c1340a63cdb824507b973393882666ba52a (diff) | |
Merge commit 'upstream/8.2-1+dfsg'
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 27ea4d55..498bd775 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 |