From 44112550468d281a16e7a22b919fe87991dea624 Mon Sep 17 00:00:00 2001 From: letouzey Date: Sun, 9 Nov 2008 20:22:35 +0000 Subject: 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 --- contrib/cc/cctac.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3