diff options
| author | Maxime Dénès | 2016-06-27 12:32:03 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2016-06-27 12:32:03 +0200 |
| commit | c1caa158add73e6e6028ade81a0cb4540a845d18 (patch) | |
| tree | e6cd36fc03ae7a79d9b65f08b0295bedc485f855 /plugins | |
| parent | a553126c9e0984f38b1a15f2db60458813a177c9 (diff) | |
| parent | c6d9d4fb142ef42634be25b60c0995b541e86629 (diff) | |
Merge branch 'funpattern' into trunk. Was PR#142: Binder syntax.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/indfun.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index 0cacb003d8..1c5eb16218 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -132,6 +132,7 @@ let rec abstract_glob_constr c = function | Constrexpr.LocalRawAssum (idl,k,t)::bl -> List.fold_right (fun x b -> Constrexpr_ops.mkLambdaC([x],k,t,b)) idl (abstract_glob_constr c bl) + | Constrexpr.LocalPattern _::bl -> assert false let interp_casted_constr_with_implicits env sigma impls c = Constrintern.intern_gen Pretyping.WithoutTypeConstraint env ~impls @@ -215,6 +216,7 @@ let rec local_binders_length = function | [] -> 0 | Constrexpr.LocalRawDef _::bl -> 1 + local_binders_length bl | Constrexpr.LocalRawAssum (idl,_,_)::bl -> List.length idl + local_binders_length bl + | Constrexpr.LocalPattern _::bl -> assert false let prepare_body ((name,_,args,types,_),_) rt = let n = local_binders_length args in @@ -861,6 +863,7 @@ let make_graph (f_ref:global_reference) = (fun (loc,n) -> CRef(Libnames.Ident(loc, Nameops.out_name n),None)) nal + | Constrexpr.LocalPattern _ -> assert false ) nal_tas ) |