diff options
| author |  Jason Gross <jagro@google.com> | 2018-06-28 19:33:27 -0400 |
|---|---|---|
| committer | Jason Gross <jagro@google.com> | 2018-06-28 19:33:27 -0400 |
| commit | 5d38a03f5a9f69a78a582cc9cc1c350dc6596cd3 (patch) | |
| tree | 454594526e8a0b818797df641f08d4cad4ca3f7e /src/Util/Prod.v | |
| parent | 1c17c2de3e18aaab050061a082e98a31dfa6c585 (diff) | |
Add more schemes for prod
Diffstat (limited to 'src/Util/Prod.v')
| -rw-r--r-- | src/Util/Prod.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Util/Prod.v b/src/Util/Prod.v index 487674dfe..be67beb65 100644 --- a/src/Util/Prod.v +++ b/src/Util/Prod.v @@ -15,6 +15,13 @@ Local Arguments snd {_ _} _. Local Arguments f_equal {_ _} _ {_ _} _. Scheme Equality for prod. +Scheme Induction for prod Sort Type. +Scheme Induction for prod Sort Set. +Scheme Induction for prod Sort Prop. +Scheme Minimality for prod Sort Type. +Scheme Minimality for prod Sort Set. +Scheme Minimality for prod Sort Prop. +Scheme prod_case := Case for prod Sort Type. Definition fst_pair {A B} (a:A) (b:B) : fst (a,b) = a := eq_refl. Definition snd_pair {A B} (a:A) (b:B) : snd (a,b) = b := eq_refl. |