summaryrefslogtreecommitdiff
path: root/test-suite/success/DiscrR.v
blob: 54528fb56b41227cefa6088ffdbb6027400226a2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Require Import Reals.
Require Import DiscrR.

Lemma ex0 : 1%R <> 0%R.
Proof.
  discrR.
Qed.

Lemma ex1 : 0%R <> 2%R.
Proof.
  discrR.
Qed.
Lemma ex2 : 4%R <> 3%R.
Proof.
  discrR.
Qed.

Lemma ex3 : 3%R <> 5%R.
Proof.
  discrR.
Qed.

Lemma ex4 : (-1)%R <> 0%R.
Proof.
  discrR.
Qed.

Lemma ex5 : (-2)%R <> (-3)%R.
Proof.
  discrR.
Qed.

Lemma ex6 : 8%R <> (-3)%R.
Proof.
  discrR.
Qed.

Lemma ex7 : (-8)%R <> 3%R.
Proof.
  discrR.
Qed.