Skip to content

Instantly share code, notes, and snippets.

@Lysxia

Lysxia/A.v

Created December 16, 2018 00:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Lysxia/e3fe8d97327bc2df70594233cd438882 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Lysxia/e3fe8d97327bc2df70594233cd438882 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
A.v
Inductive unitS : unit -> Type := ttS : unitS tt.
Definition ttS_unique : forall x, x = ttS :=
fun x =>
match x in unitS uu
return match uu return unitS uu -> _ with
| tt => fun x => x = ttS
end x
with
| ttS => eq_refl
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment