diff options
| author |  Julien Forest <forest@ensiie.fr> | 2017-04-04 13:43:11 +0200 |
|---|---|---|
| committer | Julien Forest <forest@ensiie.fr> | 2017-04-04 17:41:32 +0200 |
| commit | e242bab34b0b74bc1a02eaf750056d2684d72c36 (patch) | |
| tree | d842f61baa4a5b3642b1f5376d0dc703113050ae /plugins | |
| parent | edface9ff8462a8ecbffd03074e51f589861d88a (diff) | |
end of correction of bug 4306
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index d6a67219f..a380443fe 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -291,7 +291,7 @@ let change_eq env sigma hyp_id (context:Context.Rel.t) x t end_of_type = Can be safely replaced by the next comment for Ocaml >= 3.08.4 *) let sub = Int.Map.bindings sub in - List.fold_left (fun end_of_type (i,t) -> lift 1 (substnl [t] (i-1) end_of_type)) + List.fold_left (fun end_of_type (i,t) -> liftn 1 i (substnl [t] (i-1) end_of_type)) end_of_type_with_pop sub in |