(************************************************************************) (* * The Coq Proof Assistant / The Coq Development Team *) (* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) (* ('a * (EConstr.t * 'b)) list -> (bool * int list list * 'c option) option * ('a * (EConstr.t * 'b)) list * int list option