Commit 13e46332 authored by Raphaël Cauderlier's avatar Raphaël Cauderlier
Browse files

Use skcheck instead of skindent+dkcheck and fix bugs new in Sukerujo

parent 9521a499
......@@ -46,6 +46,8 @@ INSTALL_DIR = /usr/local/bin
DKCHECK=dkcheck
SKINDENT=skindent
SKCHECK=skcheck
SKDEP=skdep
DKDEP=dkdep
CONFLUENCECHECKER=$(shell locate csiho.sh)
DKCHECKOPTIONS=-nl -errors-in-snf -v -d # -cc $(CONFLUENCECHECKER)
......@@ -56,11 +58,8 @@ all: $(DKOS) sigmaid
builtins.dko: builtins.dk
$(DKCHECK) -e $<
%.dko:
$(DKCHECK) -e $(DKCHECKOPTIONS) $<
%.dk: %.sk
$(SKINDENT) $< > $@
%.dko: %.sk
$(SKCHECK) -e $(DKCHECKOPTIONS) $<
.v.vo:
coqc $<
......@@ -71,8 +70,8 @@ builtins.dko: builtins.dk
ocamlbuild -use-menhir $@
depend: .depend
.depend: $(DKS)
$(DKDEP) $(DKDEPOPTIONS) $(DKS) > .depend
.depend: $(SKS)
$(SKDEP) $(DKDEPOPTIONS) $(SKS) > .depend
clean:
rm -rf *.dko pts.dk dk_*.dk *.vo *.glob .depend tmp.* \
......@@ -91,7 +90,7 @@ test.sk: sigmaid.$(COMPILE_MODE)
test.v: sigmaid.$(COMPILE_MODE)
./sigmaid.$(COMPILE_MODE) test.sigma
test.dko: test.dk dk_obj_examples.dko
test.dko: test.sk dk_obj_examples.dko
test.vo: test.v coq_obj.vo
......
......@@ -78,9 +78,9 @@ def Subset : Domain -> Domain -> Type.
[A,B]
Subset A B
-->
l : Label ->
(l : Label ->
Position l A ->
Position l B.
Position l B).
(; Position and membership ;)
def mem : l : Label -> d : Domain -> bool.
......
......@@ -118,16 +118,16 @@ def preselect : A : ObjType ->
Expr A ->
Expr (Ot_assoc A l H).
[A,m,D,l,H]
preselect A D (Po_cons {A} {D} l H m _) {l} {H} (dk_domain.Position_head _ _)
[m,H]
preselect _ _ (Po_cons _ _ _ H m _) _ H (dk_domain.Position_head _ _)
-->
m
[A,D,l,l2,o,H,Htl]
preselect
A
(dk_domain.dcons l2 D)
(Po_cons _ _ _ _ _ o)
_
_
(Po_cons A D _ _ _ o)
l
H
(dk_domain.Position_tail _ _ _ Htl)
......@@ -144,11 +144,11 @@ def preupdate : A : ObjType ->
PreObj A D.
[A,D,l,p,o,m2]
preupdate
A
(dk_domain.dcons _ D)
(Po_cons _ _ _ p _ o)
l
{p}
_
_
(Po_cons A D l p _ o)
_
p
(dk_domain.Position_head _ _)
m2
-->
......
......@@ -43,7 +43,7 @@ def eT : uT -> Type.
Pi : X : uT -> ((eT X) -> uT) -> uT.
[X,Y]
eT (Pi X Y) --> x : (eT X) -> (eT (Y x)).
eT (Pi X Y) --> (x : (eT X) -> (eT (Y x))).
def Arrow : uT -> uT -> uT.
[t1,t2]
......
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