Set Implicit Arguments.
Section contents.
Variable T: Set.
Inductive SkipList: list T -> list T -> Prop :=
| SkipList_head (x: T) l l': SkipList l l' -> SkipList (x :: l) (x :: l')
| SkipList_tail (x: T) l l': SkipList l l' -> SkipList l (x :: l')
| SkipList_nil l: SkipList nil l.
Hint Constructors SkipList.

Lemma SkipList_refl (l: list T): SkipList l l.