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