diff options
author | 2007-08-18 20:34:57 +0000 | |
---|---|---|
committer | 2007-08-18 20:34:57 +0000 | |
commit | be2a2fda89bba47d5342b7aebc10efd97f1d68b9 (patch) | |
tree | 45a70ccd12dc139a53b49daba9c9821ffe2fd035 /toplevel/record.ml | |
parent | 763b05d3e66a0c0c49bad97434d891d22c1054dc (diff) | |
parent | 72b9a7df489ea47b3e5470741fd39f6100d31676 (diff) |
Merge commit 'upstream/8.1.pl1+dfsg'
Diffstat (limited to 'toplevel/record.ml')
-rw-r--r-- | toplevel/record.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index bf0271d9..ab430d0c 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: record.ml 9082 2006-08-24 17:03:28Z herbelin $ *) +(* $Id: record.ml 9976 2007-07-12 11:58:30Z msozeau $ *) open Pp open Util @@ -36,10 +36,10 @@ let interp_decl sigma env = function | Vernacexpr.DefExpr((_,id),c,t) -> let c = match t with | None -> c - | Some t -> mkCastC (c, Rawterm.CastConv DEFAULTcast,t) + | Some t -> mkCastC (c, Rawterm.CastConv (DEFAULTcast,t)) in let j = interp_constr_judgment Evd.empty env c in - (id,Some j.uj_val, j.uj_type) + (id,Some j.uj_val, refresh_universes j.uj_type) let typecheck_params_and_fields ps fs = let env0 = Global.env () in |