Library HoTT.Tests.bugs.github370

From HoTT Require Import Basics Homotopy.Suspension.

Fail Check (fun (P : interval → Type) (a : P Interval.zero) (b : P Interval.one)
                (p p' : seg # a = b)
            ⇒ idpath : interval_ind P a b p = interval_rect P a b p').

Fail Check Type0 : Type0.
Check Susp nat : Type0.
Fail Check Susp Type0 : Type0.