From 15be3526bf8e9cff9a8cf7b97973367e0f697b6e Mon Sep 17 00:00:00 2001 From: Ralf Jung <jung@mpi-sws.org> Date: Wed, 22 Feb 2017 16:35:37 +0100 Subject: [PATCH] update std++ --- opam.pins | 2 +- theories/algebra/ofe.v | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/opam.pins b/opam.pins index 64a42bfc6..f792a0b8c 100644 --- a/opam.pins +++ b/opam.pins @@ -1 +1 @@ -coq-stdpp https://gitlab.mpi-sws.org/robbertkrebbers/coq-stdpp 3103b7bf52d0275f2938d9af44ab2d0db89a6251 +coq-stdpp https://gitlab.mpi-sws.org/robbertkrebbers/coq-stdpp 0671cb48dd1f893c48672de216847d46d5263e04 diff --git a/theories/algebra/ofe.v b/theories/algebra/ofe.v index beddd2adc..eeefadec8 100644 --- a/theories/algebra/ofe.v +++ b/theories/algebra/ofe.v @@ -222,9 +222,7 @@ Ltac f_contractive := end; try reflexivity. -Ltac solve_contractive := - preprocess_solve_proper; - solve [repeat (first [f_contractive|f_equiv]; try eassumption)]. +Ltac solve_contractive := solve_proper_core ltac:(fun _ => first [f_contractive | f_equiv]). (** Fixpoint *) Program Definition fixpoint_chain {A : ofeT} `{Inhabited A} (f : A → A) -- GitLab