From 30d0a2333c1b701bddef35652009fb258f08153c Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau <mattam@mattam.org>
Date: Mon, 11 Apr 2016 13:29:27 +0200
Subject: Compat with ocaml 4.01

---
 tactics/class_tactics.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index fea8189eb..fbaebdf15 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -205,7 +205,7 @@ let unify_resolve_newcl poly flags =
         if not (Evarconv.e_cumul env ~ts:flags.core_unify_flags.modulo_delta
                                       evdref cl.cl_concl concl) then
           Type_errors.error_actual_type env
-                                        Environ.{uj_val = term; uj_type = cl.cl_concl}
+                                        {Environ.uj_val = term; Environ.uj_type = cl.cl_concl}
                                         concl;
         !evdref
       in Sigma.here term (Sigma.Unsafe.of_evar_map sigma') }
-- 
cgit v1.2.3