vendor/bundle/ruby/2.4.0/gems/rouge-1.11.1/lib/rouge/demos/coq

Require Import Coq.Lists.List.

Section with_T.
  Context {T : Type}.

  Fixpoint length (ls : list T) : nat :=
    match ls with
    | nil => 0
    | _ :: ls => S (length ls)
    end.
End with_T.