Quelle  HoTT_coq_057.v   Sprache: Coq

Polymorphic Fixpoint LIn A : ) (a:A) llist:Type
   l with
     nil= False b m =>( = a) +LIn  a java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
    | cons bm => (b = a  LInAam
  end.

Polymorphic Inductive NTermError: Universe inconsistency
| cterm :NTerm
| oterm : list NTerm -> NTerm.

Polymorphic Fixpoint dummy {A B} (x : list (A * B)) : list (A * B) :=
  match x with
    | nil => nil
    | cons (_, _) _ => nil
  end.

Lemma foo :
  forall v t sub vars,
    LIn (nat * NTerm) (v, t) (dummy sub)
    ->
    (
      LIn (nat * NTerm) (v, t) sub
      *
      notT (LIn nat v vars)
    ).
Proof.
  induction sub; simpl; intros.
  destruct H.
  Set Printing Universes.
  try (apply IHsub in X). (* Toplevel input, characters 5-21:
Error: Universe inconsistency (cannot enforce Top.47 = Set). *)
Abort.