Advertisement
tinyevil

Untitled

Feb 25th, 2018
165
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. Inductive GenericTuple : (list Type) -> Type :=
  2. | t_cons : forall (ts:list Type) (T:Type), T -> GenericTuple ts -> GenericTuple (T::ts)
  3. | t_nil : GenericTuple nil.
  4.  
  5. Implicit Arguments t_cons [ts T].
  6.  
  7. Check (t_cons 5 (t_cons true (t_cons (2 = 5) t_nil))).
  8.  
  9. (*
  10. t_cons 5 (t_cons true (t_cons (2 = 5) t_nil))
  11. : GenericTuple (nat :: (bool :: Prop :: nil)%list)
  12. *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement