diff options
| author | filliatr | 2001-04-10 13:21:45 +0000 |
|---|---|---|
| committer | filliatr | 2001-04-10 13:21:45 +0000 |
| commit | 2bb2d480b547e58deb2ec62791c8990ecac777b0 (patch) | |
| tree | 64dafd639dab62bf0c15cda96b9cab129c9c726a /contrib/correctness/pcic.ml | |
| parent | 8eaf1799ec07bf823a366920e39d79e827f94971 (diff) | |
réparation Correctness; options Extraction (changement de syntaxe)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1571 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/pcic.ml')
| -rw-r--r-- | contrib/correctness/pcic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml index cf233a9889..4395aa53a5 100644 --- a/contrib/correctness/pcic.ml +++ b/contrib/correctness/pcic.ml @@ -185,10 +185,11 @@ let rawconstr_of_prog p = let args = tyl @ cl in RApp (dummy_loc, RRef (dummy_loc, tuple), args) - | CC_case (_,b,el) -> + | CC_case (ty,b,el) -> let c = trad avoid nenv b in let cl = List.map (trad avoid nenv) el in - ROldCase (dummy_loc, false, None, c, Array.of_list cl) + let ty = Detyping.detype avoid nenv ty in + ROldCase (dummy_loc, false, Some ty, c, Array.of_list cl) | CC_expr c -> Detyping.detype avoid nenv c |