Commit 4c4c64b3 authored by Raphaël Cauderlier's avatar Raphaël Cauderlier
Browse files

[dk_char] Refactoring + underscore char

parent 80dac59f
......@@ -3,83 +3,82 @@
#IMPORT cc
#IMPORT dk_nat
UNat : Type := cc.eT dk_nat.Nat.
UO : UNat := dk_nat.O.
US : UNat -> UNat := dk_nat.S.
#IMPORT dk_binary_nat
#IMPORT dk_machine_int
char : cc.uT := dk_machine_int.Mint dk_nat.__7.
Char := cc.eT char.
_O : dk_binary_nat.N := dk_binary_nat.O.
S0 : dk_binary_nat.N -> dk_binary_nat.N := dk_binary_nat.S0.
S1 : dk_binary_nat.N -> dk_binary_nat.N := dk_binary_nat.S1.
cast : dk_binary_nat.N -> cc.eT char := dk_machine_int.cast_bnat dk_nat.__7.
cast : dk_binary_nat.N -> Char := dk_machine_int.cast_bnat dk_nat.__7.
_0 : Char := cast (S0 (S0 (S0 (S0 (S1 (S1 _O)))))).
_1 : Char := cast (S1 (S0 (S0 (S0 (S1 (S1 _O)))))).
_2 : Char := cast (S0 (S1 (S0 (S0 (S1 (S1 _O)))))).
_3 : Char := cast (S1 (S1 (S0 (S0 (S1 (S1 _O)))))).
_4 : Char := cast (S0 (S0 (S1 (S0 (S1 (S1 _O)))))).
_5 : Char := cast (S1 (S0 (S1 (S0 (S1 (S1 _O)))))).
_6 : Char := cast (S0 (S1 (S1 (S0 (S1 (S1 _O)))))).
_7 : Char := cast (S1 (S1 (S1 (S0 (S1 (S1 _O)))))).
_8 : Char := cast (S0 (S0 (S0 (S1 (S1 (S1 _O)))))).
_9 : Char := cast (S1 (S0 (S0 (S1 (S1 (S1 _O)))))).
_0 : cc.eT char := cast (S0 (S0 (S0 (S0 (S1 (S1 _O)))))).
_1 : cc.eT char := cast (S1 (S0 (S0 (S0 (S1 (S1 _O)))))).
_2 : cc.eT char := cast (S0 (S1 (S0 (S0 (S1 (S1 _O)))))).
_3 : cc.eT char := cast (S1 (S1 (S0 (S0 (S1 (S1 _O)))))).
_4 : cc.eT char := cast (S0 (S0 (S1 (S0 (S1 (S1 _O)))))).
_5 : cc.eT char := cast (S1 (S0 (S1 (S0 (S1 (S1 _O)))))).
_6 : cc.eT char := cast (S0 (S1 (S1 (S0 (S1 (S1 _O)))))).
_7 : cc.eT char := cast (S1 (S1 (S1 (S0 (S1 (S1 _O)))))).
_8 : cc.eT char := cast (S0 (S0 (S0 (S1 (S1 (S1 _O)))))).
_9 : cc.eT char := cast (S1 (S0 (S0 (S1 (S1 (S1 _O)))))).
A : Char := cast (S1 (S0 (S0 (S0 (S0 (S0 (S1 _O))))))).
B : Char := cast (S0 (S1 (S0 (S0 (S0 (S0 (S1 _O))))))).
C : Char := cast (S1 (S1 (S0 (S0 (S0 (S0 (S1 _O))))))).
D : Char := cast (S0 (S0 (S1 (S0 (S0 (S0 (S1 _O))))))).
E : Char := cast (S1 (S0 (S1 (S0 (S0 (S0 (S1 _O))))))).
F : Char := cast (S0 (S1 (S1 (S0 (S0 (S0 (S1 _O))))))).
G : Char := cast (S1 (S1 (S1 (S0 (S0 (S0 (S1 _O))))))).
H : Char := cast (S0 (S0 (S0 (S1 (S0 (S0 (S1 _O))))))).
I : Char := cast (S1 (S0 (S0 (S1 (S0 (S0 (S1 _O))))))).
J : Char := cast (S0 (S1 (S0 (S1 (S0 (S0 (S1 _O))))))).
K : Char := cast (S1 (S1 (S0 (S1 (S0 (S0 (S1 _O))))))).
L : Char := cast (S0 (S0 (S1 (S1 (S0 (S0 (S1 _O))))))).
M : Char := cast (S1 (S0 (S1 (S1 (S0 (S0 (S1 _O))))))).
N : Char := cast (S0 (S1 (S1 (S1 (S0 (S0 (S1 _O))))))).
O : Char := cast (S1 (S1 (S1 (S1 (S0 (S0 (S1 _O))))))).
P : Char := cast (S0 (S0 (S0 (S0 (S1 (S0 (S1 _O))))))).
Q : Char := cast (S1 (S0 (S0 (S0 (S1 (S0 (S1 _O))))))).
R : Char := cast (S0 (S1 (S0 (S0 (S1 (S0 (S1 _O))))))).
S : Char := cast (S1 (S1 (S0 (S0 (S1 (S0 (S1 _O))))))).
T : Char := cast (S0 (S0 (S1 (S0 (S1 (S0 (S1 _O))))))).
U : Char := cast (S1 (S0 (S1 (S0 (S1 (S0 (S1 _O))))))).
V : Char := cast (S0 (S1 (S1 (S0 (S1 (S0 (S1 _O))))))).
W : Char := cast (S1 (S1 (S1 (S0 (S1 (S0 (S1 _O))))))).
X : Char := cast (S0 (S0 (S0 (S1 (S1 (S0 (S1 _O))))))).
Y : Char := cast (S1 (S0 (S0 (S1 (S1 (S0 (S1 _O))))))).
Z : Char := cast (S0 (S1 (S0 (S1 (S1 (S0 (S1 _O))))))).
A : cc.eT char := cast (S1 (S0 (S0 (S0 (S0 (S0 (S1 _O))))))).
B : cc.eT char := cast (S0 (S1 (S0 (S0 (S0 (S0 (S1 _O))))))).
C : cc.eT char := cast (S1 (S1 (S0 (S0 (S0 (S0 (S1 _O))))))).
D : cc.eT char := cast (S0 (S0 (S1 (S0 (S0 (S0 (S1 _O))))))).
E : cc.eT char := cast (S1 (S0 (S1 (S0 (S0 (S0 (S1 _O))))))).
F : cc.eT char := cast (S0 (S1 (S1 (S0 (S0 (S0 (S1 _O))))))).
G : cc.eT char := cast (S1 (S1 (S1 (S0 (S0 (S0 (S1 _O))))))).
H : cc.eT char := cast (S0 (S0 (S0 (S1 (S0 (S0 (S1 _O))))))).
I : cc.eT char := cast (S1 (S0 (S0 (S1 (S0 (S0 (S1 _O))))))).
J : cc.eT char := cast (S0 (S1 (S0 (S1 (S0 (S0 (S1 _O))))))).
K : cc.eT char := cast (S1 (S1 (S0 (S1 (S0 (S0 (S1 _O))))))).
L : cc.eT char := cast (S0 (S0 (S1 (S1 (S0 (S0 (S1 _O))))))).
M : cc.eT char := cast (S1 (S0 (S1 (S1 (S0 (S0 (S1 _O))))))).
N : cc.eT char := cast (S0 (S1 (S1 (S1 (S0 (S0 (S1 _O))))))).
O : cc.eT char := cast (S1 (S1 (S1 (S1 (S0 (S0 (S1 _O))))))).
P : cc.eT char := cast (S0 (S0 (S0 (S0 (S1 (S0 (S1 _O))))))).
Q : cc.eT char := cast (S1 (S0 (S0 (S0 (S1 (S0 (S1 _O))))))).
R : cc.eT char := cast (S0 (S1 (S0 (S0 (S1 (S0 (S1 _O))))))).
S : cc.eT char := cast (S1 (S1 (S0 (S0 (S1 (S0 (S1 _O))))))).
T : cc.eT char := cast (S0 (S0 (S1 (S0 (S1 (S0 (S1 _O))))))).
U : cc.eT char := cast (S1 (S0 (S1 (S0 (S1 (S0 (S1 _O))))))).
V : cc.eT char := cast (S0 (S1 (S1 (S0 (S1 (S0 (S1 _O))))))).
W : cc.eT char := cast (S1 (S1 (S1 (S0 (S1 (S0 (S1 _O))))))).
X : cc.eT char := cast (S0 (S0 (S0 (S1 (S1 (S0 (S1 _O))))))).
Y : cc.eT char := cast (S1 (S0 (S0 (S1 (S1 (S0 (S1 _O))))))).
Z : cc.eT char := cast (S0 (S1 (S0 (S1 (S1 (S0 (S1 _O))))))).
a : Char := cast (S1 (S0 (S0 (S0 (S0 (S1 (S1 _O))))))).
b : Char := cast (S0 (S1 (S0 (S0 (S0 (S1 (S1 _O))))))).
c : Char := cast (S1 (S1 (S0 (S0 (S0 (S1 (S1 _O))))))).
d : Char := cast (S0 (S0 (S1 (S0 (S0 (S1 (S1 _O))))))).
e : Char := cast (S1 (S0 (S1 (S0 (S0 (S1 (S1 _O))))))).
f : Char := cast (S0 (S1 (S1 (S0 (S0 (S1 (S1 _O))))))).
g : Char := cast (S1 (S1 (S1 (S0 (S0 (S1 (S1 _O))))))).
h : Char := cast (S0 (S0 (S0 (S1 (S0 (S1 (S1 _O))))))).
i : Char := cast (S1 (S0 (S0 (S1 (S0 (S1 (S1 _O))))))).
j : Char := cast (S0 (S1 (S0 (S1 (S0 (S1 (S1 _O))))))).
k : Char := cast (S1 (S1 (S0 (S1 (S0 (S1 (S1 _O))))))).
l : Char := cast (S0 (S0 (S1 (S1 (S0 (S1 (S1 _O))))))).
m : Char := cast (S1 (S0 (S1 (S1 (S0 (S1 (S1 _O))))))).
n : Char := cast (S0 (S1 (S1 (S1 (S0 (S1 (S1 _O))))))).
o : Char := cast (S1 (S1 (S1 (S1 (S0 (S1 (S1 _O))))))).
p : Char := cast (S0 (S0 (S0 (S0 (S1 (S1 (S1 _O))))))).
q : Char := cast (S1 (S0 (S0 (S0 (S1 (S1 (S1 _O))))))).
r : Char := cast (S0 (S1 (S0 (S0 (S1 (S1 (S1 _O))))))).
s : Char := cast (S1 (S1 (S0 (S0 (S1 (S1 (S1 _O))))))).
t : Char := cast (S0 (S0 (S1 (S0 (S1 (S1 (S1 _O))))))).
u : Char := cast (S1 (S0 (S1 (S0 (S1 (S1 (S1 _O))))))).
v : Char := cast (S0 (S1 (S1 (S0 (S1 (S1 (S1 _O))))))).
w : Char := cast (S1 (S1 (S1 (S0 (S1 (S1 (S1 _O))))))).
x : Char := cast (S0 (S0 (S0 (S1 (S1 (S1 (S1 _O))))))).
y : Char := cast (S1 (S0 (S0 (S1 (S1 (S1 (S1 _O))))))).
z : Char := cast (S0 (S1 (S0 (S1 (S1 (S1 (S1 _O))))))).
a : cc.eT char := cast (S1 (S0 (S0 (S0 (S0 (S1 (S1 _O))))))).
b : cc.eT char := cast (S0 (S1 (S0 (S0 (S0 (S1 (S1 _O))))))).
c : cc.eT char := cast (S1 (S1 (S0 (S0 (S0 (S1 (S1 _O))))))).
d : cc.eT char := cast (S0 (S0 (S1 (S0 (S0 (S1 (S1 _O))))))).
e : cc.eT char := cast (S1 (S0 (S1 (S0 (S0 (S1 (S1 _O))))))).
f : cc.eT char := cast (S0 (S1 (S1 (S0 (S0 (S1 (S1 _O))))))).
g : cc.eT char := cast (S1 (S1 (S1 (S0 (S0 (S1 (S1 _O))))))).
h : cc.eT char := cast (S0 (S0 (S0 (S1 (S0 (S1 (S1 _O))))))).
i : cc.eT char := cast (S1 (S0 (S0 (S1 (S0 (S1 (S1 _O))))))).
j : cc.eT char := cast (S0 (S1 (S0 (S1 (S0 (S1 (S1 _O))))))).
k : cc.eT char := cast (S1 (S1 (S0 (S1 (S0 (S1 (S1 _O))))))).
l : cc.eT char := cast (S0 (S0 (S1 (S1 (S0 (S1 (S1 _O))))))).
m : cc.eT char := cast (S1 (S0 (S1 (S1 (S0 (S1 (S1 _O))))))).
n : cc.eT char := cast (S0 (S1 (S1 (S1 (S0 (S1 (S1 _O))))))).
o : cc.eT char := cast (S1 (S1 (S1 (S1 (S0 (S1 (S1 _O))))))).
p : cc.eT char := cast (S0 (S0 (S0 (S0 (S1 (S1 (S1 _O))))))).
q : cc.eT char := cast (S1 (S0 (S0 (S0 (S1 (S1 (S1 _O))))))).
r : cc.eT char := cast (S0 (S1 (S0 (S0 (S1 (S1 (S1 _O))))))).
s : cc.eT char := cast (S1 (S1 (S0 (S0 (S1 (S1 (S1 _O))))))).
t : cc.eT char := cast (S0 (S0 (S1 (S0 (S1 (S1 (S1 _O))))))).
u : cc.eT char := cast (S1 (S0 (S1 (S0 (S1 (S1 (S1 _O))))))).
v : cc.eT char := cast (S0 (S1 (S1 (S0 (S1 (S1 (S1 _O))))))).
w : cc.eT char := cast (S1 (S1 (S1 (S0 (S1 (S1 (S1 _O))))))).
x : cc.eT char := cast (S0 (S0 (S0 (S1 (S1 (S1 (S1 _O))))))).
y : cc.eT char := cast (S1 (S0 (S0 (S1 (S1 (S1 (S1 _O))))))).
z : cc.eT char := cast (S0 (S1 (S0 (S1 (S1 (S1 (S1 _O))))))).
__ : Char := cast (S1 (S0 (S1 (S1 (S1 (S1 (S1 _O))))))).
#IMPORT dk_bool
equal : cc.eT char -> cc.eT char -> cc.eT dk_bool.bool := dk_machine_int.equal dk_nat.__7.
equal : Char -> Char -> cc.eT dk_bool.bool := dk_machine_int.equal dk_nat.__7.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment