diff options
| author | Matej Kosik | 2016-08-26 16:34:53 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-08-26 17:19:26 +0200 |
| commit | 9c4f68936e33c93cf179eec6e996062bec918915 (patch) | |
| tree | baebf01d845d8ed702da36e50bfdfc6fcdaa1455 /mathcomp | |
| parent | 544304507548ac889c2982306f54a27742527ef5 (diff) | |
fix compilation wrt. commit 69388fc in Coq trunk
Diffstat (limited to 'mathcomp')
| -rw-r--r-- | mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 index 6fa7235..ee13c15 100644 --- a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 +++ b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 @@ -2093,7 +2093,7 @@ let abs_wgen keep_let ist f gen (gl,args,c) = let decl = pf_get_hyp gl x in gl, (if NamedDecl.is_local_def decl then args else mkVar x :: args), - mkProd_or_LetIn (decl |> NamedDecl.to_rel |> RelDecl.set_name (Name (f x))) + mkProd_or_LetIn (decl |> NamedDecl.to_rel_decl |> RelDecl.set_name (Name (f x))) (subst_var x c) | _, Some ((x, _), None) -> let x = hoi_id x in |