test-suite/failure/circular_subtyping1.v


1
2
3
4
5
6
7

(* subtyping verification in presence of  pseudo-circularity*)
Module Type S. End S.
Module Type T. Declare Module M:S. End T.

Module N:S. End N.
Module NN <: T. Module M:=N. End NN.
Fail Module P <: T with Module M:=NN := NN.