From 8db84eef2cf6a5f35e9ef7e4bea9725f29550845 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Mon, 14 May 2018 03:59:55 +0200
Subject: Adapt to fix/cofix changes in Coq (coq/coq#7196)

c.f. https://github.com/coq/coq/pull/7196
---
 src/tac2stdlib.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/tac2stdlib.ml')

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index 9ed3d5b32e..be7c76744d 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -501,12 +501,12 @@ end
 
 let () = define_prim0 "tac_admit" Proofview.give_up
 
-let () = define_prim2 "tac_fix" (option ident) int begin fun idopt n ->
-  Tactics.fix idopt n
+let () = define_prim2 "tac_fix" ident int begin fun ident n ->
+  Tactics.fix ident n
 end
 
-let () = define_prim1 "tac_cofix" (option ident) begin fun idopt ->
-  Tactics.cofix idopt
+let () = define_prim1 "tac_cofix" ident begin fun ident ->
+  Tactics.cofix ident
 end
 
 let () = define_prim1 "tac_clear" (list ident) begin fun ids ->
-- 
cgit v1.2.3