aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success/Case5.v
blob: 833621d2b33867b7925fbb72c8fc195f39a1f3df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13

Parameter ff : forall n m : nat, n <> m -> S n <> S m.
Parameter discr_r : forall n : nat, 0 <> S n.
Parameter discr_l : forall n : nat, S n <> 0.


Type
  (fun n : nat =>
   match n return (n = 0 \/ n <> 0) with
   | O => or_introl (0 <> 0) (refl_equal 0)
   | S O => or_intror (1 = 0) (discr_l 0)
   | S (S x) => or_intror (S (S x) = 0) (discr_l (S x))
   end).