UnsetAutomaticPropositionInductives. RecordFoo (x : Type->Type) : Type := {}.
FailInductiveBar : Type->Type :=
| bar : Bar (FooBar). (*Non strictly positive occurrence of "Bar" in "Bar (Foo Bar)".
Coq does not accept nested inductive types in indices, while Agda does. *)