File: sqrt.v

package info (click to toggle)
coq 9.1.0%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 35,968 kB
  • sloc: ml: 239,908; sh: 4,355; python: 2,985; ansic: 2,644; makefile: 874; lisp: 171; javascript: 63; xml: 24; sed: 2
file content (15 lines) | stat: -rw-r--r-- 450 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Require Import PrimInt63 PrimFloat.

Open Scope float_scope.

Definition three := Eval compute in of_uint63 3%uint63.
Definition nine := Eval compute in of_uint63 9%uint63.

Check (eq_refl : sqrt nine = three).

Check (eq_refl : sqrt zero = zero).
Check (eq_refl : sqrt neg_zero = neg_zero).
Check (eq_refl : sqrt one = one).
Check (eq_refl : sqrt (-one) = nan).
Check (eq_refl : sqrt infinity = infinity).
Check (eq_refl : sqrt neg_infinity = nan).