diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-11-09 20:22:35 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-11-09 20:22:35 +0000 |
| commit | 44112550468d281a16e7a22b919fe87991dea624 (patch) | |
| tree | 471ebb09f63844f0b1d7e2f70927123d05d91348 | |
| parent | 03b5cec9dd20905d0af89aa637a024ebfa0e1ac2 (diff) | |
better fix for #1931 by using sort_of
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11566 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/cc/cctac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/cc/cctac.ml b/contrib/cc/cctac.ml index 2509dffd5..84388b1c0 100644 --- a/contrib/cc/cctac.ml +++ b/contrib/cc/cctac.ml @@ -58,7 +58,7 @@ let whd_delta env= (* decompose member of equality in an applicative format *) -let sf_of env sigma c = family_of_sort (destSort (whd_delta env (type_of env sigma c))) +let sf_of env sigma c = family_of_sort (sort_of env sigma c) let rec decompose_term env sigma t= match kind_of_term (whd env t) with |