(* Check a few naming heuristics based on types *)
(* was buggy for types names _something *)
Inductive _foo :=.
destruct 1.
exact _f.
Abort.
Inductive _'Foo :=.
destruct 1.
exact _'f.
Abort.
Inductive ____ :=.

Lemma bob : (sigT (fun x : nat => ____)) -> ____.