From 5d38a03f5a9f69a78a582cc9cc1c350dc6596cd3 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Thu, 28 Jun 2018 19:33:27 -0400 Subject: Add more schemes for prod --- src/Util/Prod.v | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Util/Prod.v') 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. -- cgit v1.2.3