aboutsummaryrefslogtreecommitdiff
path: root/plugins/funind/functional_principles_proofs.mli
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-09-30 14:05:08 +0200
committerPierre-Marie Pédrot2020-09-30 14:05:08 +0200
commit1c919ed6fa476f0f7a16d69e58989f3d75104910 (patch)
tree3fd1b2452b9af72f0dc2cd1929683ec544372874 /plugins/funind/functional_principles_proofs.mli
parentc63f7c8407ae151e61e5490803bb19169ad37a5c (diff)
parentbe3a5ac947cb57499b668a3745439b15ff8c48a8 (diff)
Merge PR #13021: Almost fully moving funind to new proof engine
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/funind/functional_principles_proofs.mli')
-rw-r--r--plugins/funind/functional_principles_proofs.mli14
1 files changed, 12 insertions, 2 deletions
diff --git a/plugins/funind/functional_principles_proofs.mli b/plugins/funind/functional_principles_proofs.mli
index 52089ca7fb..096ea5fed5 100644
--- a/plugins/funind/functional_principles_proofs.mli
+++ b/plugins/funind/functional_principles_proofs.mli
@@ -1,3 +1,13 @@
+(************************************************************************)
+(* * The Coq Proof Assistant / The Coq Development Team *)
+(* v * Copyright INRIA, CNRS and contributors *)
+(* <O___,, * (see version control and CREDITS file for authors & dates) *)
+(* \VV/ **************************************************************)
+(* // * This file is distributed under the terms of the *)
+(* * GNU Lesser General Public License Version 2.1 *)
+(* * (see LICENSE file for the text of the license) *)
+(************************************************************************)
+
open Names
val prove_princ_for_struct :
@@ -7,7 +17,7 @@ val prove_princ_for_struct :
-> Constant.t array
-> EConstr.constr array
-> int
- -> Tacmach.tactic
+ -> unit Proofview.tactic
val prove_principle_for_gen :
Constant.t * Constant.t * Constant.t
@@ -22,6 +32,6 @@ val prove_principle_for_gen :
-> (* the type of the recursive argument *)
EConstr.constr
-> (* the wf relation used to prove the function *)
- Tacmach.tactic
+ unit Proofview.tactic
(* val is_pte : rel_declaration -> bool *)