From 62fb849cf9410ddc2d9f355570f4fb859f3044c3 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Tue, 25 Mar 2014 18:29:28 +0100 Subject: Adapt universe polymorphic branch to new handling of futures for delayed proofs. --- plugins/funind/indfun.ml | 1 - plugins/funind/invfun.ml | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) (limited to 'plugins') diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index 49f833590..3f728ddcd 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -183,7 +183,6 @@ let is_rec names = | GRef _ | GEvar _ | GPatVar _ | GSort _ | GHole _ -> false | GProj (loc, p, c) -> lookup names c | GCast(_,b,_) -> lookup names b - | GProj _ -> error "GProj not handled" | GRec _ -> error "GRec not handled" | GIf(_,b,_,lhs,rhs) -> (lookup names b) || (lookup names lhs) || (lookup names rhs) diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml index 897c8765b..b68d9762e 100644 --- a/plugins/funind/invfun.ml +++ b/plugins/funind/invfun.ml @@ -1117,7 +1117,7 @@ let derive_correctness make_scheme functional_induction (funs: constant list) (g let schemes = Array.of_list scheme in - let proving_tac = + let _proving_tac = prove_fun_complete funs_constr mib.Declarations.mind_packets schemes lemmas_types_infos in Array.iteri -- cgit v1.2.3