diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/indfun.ml | 1 | ||||
| -rw-r--r-- | plugins/funind/invfun.ml | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index 49f8335908..3f728ddcd6 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 897c8765bf..b68d9762ef 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 |